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SECTION 1 
INTRODUCTION 


This report was prepared by McDonnell Douglas Technical Services Company 
(MDTSCO) to document the data base verification of the ECLS L/stems Assessment 
Program (ESAP) and changes made to enhance the flexibility of the water 
recovery subsystem simulations. This report describes all changes which were 
made to the data base values and the software enhancements performed. The 
refined model documented herein constitutes the MDTSCO submittal of the General 
Cluster Systems Model described under SOW paragraph b. A source listing of the 
current version of ESAP Is provided In Appendix A. 


SECTION 2 
DISCUSSION 


The ECLS System Assessment Program Is a MSEC developed program which Is 
used as a conceptual system design/trade study tool. This program was 
provided to MDTSCO to form the basis for the Space Station General Cluster 
Systems Model. The tasks performed by MDTSCO Include (1) verification of the 
data base values and component simulations, and (2) software enhancements to 
Increase the flexibility of the program In the water recovery subsystem 
slmul atl on. 

The verification of ESAP Included assessment of the accuracy of the data 
base values l.e. the weight, power, and volume data and verification of the 
fundamental physics of the component simulations. The data based values for 
each subsystem were compared to current values found in recent literature and 
documentation . Changes were considered necessary in the data based values for 
the subsystems used In the water reclamation system. A list of the changes 
that were made are provided In Table 1. 

All other data based values are in agreement with current documented 
values. The verification of the component simulations Indicated that the 
stoichiometric relationships were correct In all of the component simulations. 

The principal software enhancement consists of Incorporating operational 
changes to allow the engineer to address Inter-mixing of flow streams between 
the same and/or different water recovery systems. Addition of this greater 
flexibility to ESAP necessitated a major rewrite to the water reclamation 
input scheme. The objective is to enable the user to place subsystems In 
series and parallel. The solution to this problem was to define the type of 
water to be recovered first and then define the path that the primary stream 
followed. After the primary flow path for a particular water group has been 
established, the quality of the water recovered is defined. With all water 
groups, their corresponding flow paths, and water quality defined, secondary 
flow paths are established between existing subsystems and new subsystems. 

In order to achieve the desired results, several variables and arrays were 
added to the Input section of program. Below is a brief description of the 
variables and arrays that were added to the main program; 

JFL0W(I,J) This array contains the primary flow path. 'I' 

represents the water group number and ' J * 
represents the order of the subsystem selected. 

KFLOW ( I , J ) This array contains thp secondary flow paths to 

predefined subsystems. 'I* represents the water 
group nurrfcer that the flow is coming from and 'J' 
represents the subsystem unit number that the water 
is coming from. The value this array receives is a 
compound number ' KL ' , where the first digit 
represents the water group number the flow Is going 
to and the second digit ' L ' represents the 
subsystem unit number the water is entering. 
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LFLOW { I ,J ) 


I UN IT 
GROUP 
ANSWER 


This array contains the secondary flow paths to new 
subsystems. 'I' represents the flow group the 
water is coming from and 'J l represents the 
subsystem unit number. This array receives the 
value of the subsystem number the water is entering. 

Variable counter that keeps track of the number of 
water reclamation subsystems chosen. 

Variable counter that keeps track of the number of 
water groups selected. 

Alphanumeric character that is used in reading 
answers to questions. 


The program uses an iterative approach In evaluating the water reclamation 
system. The total throughput of water for each flow group is determined 
first, with each flow group subsequently put through its respective flow 
path. The flow of water is modified each time it entered a subsystem by the 
efficiency of that subsystem. The flow of water rejected from each subsystem 
is also calculated. 


After each primary flow stream Is evaluated, the program then computes the 
secondary flow streams from the designated subsystems. This Is accomplished 
by sending the desired secondary stream into the designated subsystem and 
evaluating this stream as if it were a primary flow. If the subsystem is a 
predefined subsystem then the secondary water stream is processed through the 
remaining subsystems in the new flow path and the quality of the water will be 
the same as that of the flow path entered. 

Several new arrays and variables were added to the WRS subroutine, they 

are: 


E(I,J) 


EFF(I) 

SSWATER(I) 

TSWATER(I) 


This array receives the subsystem efficiency. This 
array was Increased to a two dimensional array in 
order to accommodate the subsystem selection 
method. represents the flow group nunfcer and 

' J 1 represents the subsystem number. 

Array that contains the value of the subsystem 
efficiency, where T represents the overall 
subsystem number. 

Array that contains the amount of secondary water 
being directed from a new unit into a potable 
tank. 'I' is the flow group number. 

This array receives the amount of secondary water 
being directed from a new unit into a hygiene 
tank. 'I' is the flow group nuirfcer. 
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TWATER{ I) 

This array is assigned the value of the amount of 
water of each water group. This is used In 
tracking the different water types. 

SWATER(I.J) 

Array that contains the amount of secondary water 
from each subsystem. 1 1' represents the flow group 
and 1 J 1 represents the subsystem number. 

PSWATER( I) 

This array receives the final amount of processed 
secondary water. 'I' represents the flow group 
that the secondary water stream entered. 

ZCONDR 

ZREDH20R 

ZHYGIENR 

ZURINR 

ZOISHWR 

ZCLOTHR 

These variables are used In computing the 
of each water type that was recovered. 

amount 

HYGREC 

Variable used In calculating the amount of hygiene 
water recovered. 


In addition to the above major modifications a few minor changes were made 
to other subroutines. The value for the total load on each water reclamation 
subsystem was taken out of subroutine ANALYZE and put Into the WRS subroutine, 
to facilitate computations. The auxiliary equipment equation In subroutine 
RESUP was changed In order to accommodate the method "sed to compute the 
Individual subsystem loads. Additions were also made to subroutine INITL to 
Initialize the new arrays . 

The operation of the program continues to follow the menu scheme present 
in the original program received from NASA. The menu functions to support the 
enhancements to the WRS simulation have been Implemented to solicit the 
necessary data from the user. 
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TABLE 1. 

MODIFIED ESAP DATA BASE PARAMETERS 


COMPONENT 


CHANGES 


REFERENCES 


VCD 


Initial volume changed from 17.0 to 1 

25.6 cubic feet. 


TIMES 
AIR EVAP 
MULTIFILTRATION 
HYPERFILTRATION 

REVERSE OSMOSIS 


Initial volume changed from 13.0 to 1 

20.0 cubic feet. 

Initial volume changed from 10.0 to 1 

15.0 cubic feet. 

Average power required on night side 1 

changed from 0.0 to 30.0 watts. 

Average power required to daylight 2 

and night side changed from 0.0 to 

272.0 watts. Initial weight changed 
from 0.0 to 460.0 pounds. Initial 


volume changed from 0.0 to 30.8 cubic feet. 

Average power required on daylight and 3 

night side changed from 0.0 to 45.0 watts. 
Initial weight changed from 0.0 to 
125.0 pounds. Initial volume changed 
from 0.0 to 30.8 cubic feet. 


REFERENCES 

1 Space Station Regenerative Life Support Equipment Weight, Power, and 
Volume Data, NASA-MSFC EP45/85-34, Mr. Frederick, April 2, 1985. 

2 Hyperfiltration Wash Water Recovery Subsystem Design and Test Results, 
SAE 83112, R. P. Reysa, Boeing Aerospace, July 1983. 

3 Membrane Based Water and Energy Recovery Systems for Manned Space 
Station, SAE 85B45, Rob Ray, Bend Research, July 1985. 


SECTIOW 3 
SUMMARY 


The verification process resulted In relatively minor changes to the ESAP 
data base as was expected. The changes to the water recovery system software 
to address Intermixing of the flow streams required a major rewrite, but the 
resulting software allows the engineer the flexibility to address hybrid 
systems. In accordance with the SOW, future changes to ESAP will include 
consideration of adding the capability to address module heat balances and 
updates to the ECLS equipment algorithms. 


( 
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APPENDIX A 
PROGRAM LISTING 


PROGRAM E8AP2 
REAL N, M 

PARAMETER { NDBGN=5 « , N66DAT=3 0 , N8YS=5 0 , NSUB8Y8:=3 5 , miUM=9 , NWNUM=6 ) 
PARAMETER ( NAAUX=10 , NWAUX=1« , NITYP=4 ) 

PARAMETER ( ICOMPAR=17 , NCOMPAR=2 0 ) 

COMMON /CHAR/ ADUMP, TANKED 

COMMON /GENRL/ DESIGN ( NDSGN) , 88DATA ( NSSDAT , NS Y8 ) , 

* SUBSYS (OsNSUBSYS, NNUM) , N, R, RE , M , ITYPE (NNUM , NITYP) , IWATER (NWNUM) , 

* TOTALS (Ns0bSYS,3) , NUMBER , AR6AUX ( NAAUX , 3 ) , WRS AUX ( NWAUX , 0 ! 3 ) , 

* ARSAUXQ (30, NAAUX) , WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA ( NNUM, NAAUX ,0:3) , AUXILW ( NNUM , 0 : NWAUX ,0:3) , 

< GROUP, IUNIT,JFLOW ( NAAUX , NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER( NAAUX, NAAUX) , P8WATER (NAAUX) , LFLOW ( NCOMPAR, NCOMPAR) 

COMMON /RATESYS/ 1 TRACK , COMPAR ( ICOMPAR, NCOMPAR ) , 

* POINT { 0 : ICOMPAR) , RATE ( 0 : ICOMPAR, NCOMPAR) , 

* COMPAR1 (ICOMPAR, 3) 

COMMON /CHAR2/ COMPARD (NCOMPAR) , COMPARL (NCOMPAR) 

COMMON /FILE/ FNAME(NSYS) 

COMMON /IWRT/ IWRITE 
CHARACTER* 12 7NAMF 
CHARACTER*® ADUMP 
CHARACTER*? AVAL 
CHARACTER* 1 ANSWER 
CHARACTER* IS 8SNAME 
CHARACTER*® TANKED 

OPEN (UNIT=1,FILE=* E8APDATA.DAT* , STATUS=: ' UNKNOWN f ) 

C 

C SUBROUTINE DIRECTORY 


C 


c 

ri 

SUBROUTINE 

DESCRIPTION 


Li 

c 

ESAP 

MAIN ROUTINE, SELECT SUBSYSTEMS, CONTROLS PROGRAM FLOW 

c 

ANALIZE 

PRIMARY EXECUTION ROUTINE, CONTROLS COMPUTATION FLOW, 

c 


COMPUTES 

TOTALS 


c 

ARS 

COMPUTATION ROUTINE FOR AIR REVITALIZATION SUBSYSTEMS 

c 

WRS 

COMPUTATION ROUTINE FOR WATER RECLAMATION SUBSYSTEMS 

c 

SIZE 

ROUTINE CALLED BY ALL SUBSYSTEM SIZING ROUTINES TO SIZE 

c 


SUBSYSTEM BASED 

ON LOAD, SIZING RATIOS 

c 

SBR02GEN 

COMPUTES OXYGEN REQUIREMENTS 

c 

SFWES 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

SPOLLF 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

SPOLSF 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

02ST0R 

SUBSYSTEM 

SIZING 

ROUTINE 

C 

EDC 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

SAWD 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

HMOLBV 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

LIOH 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

FBDMSV 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

SKLMSV 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

BOSCH 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

SABAT 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

SABCH4 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

VCD 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

TIMES 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

AIREVP 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

VPCAR 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

MF 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

HF 

SUBSYSTEM 

SIZING 

ROUTINE 

c 

RO 

SUBSYSTEM 

SIZING 

ROUTINE 


C BR38UB WRITES SUMMARY DATA TO SCREEN/FILM < FIRST 6 SCREENS OK DATA) 

C WARSMAT WRITES ARS MATERIALS SUMMARY TO BCREEN/FILE 

C WWR8MAT WRITES WRS MATERIALS SUMMARY TO SCREEN/FILE 

C RESUP CALCULATES AUX EQUIP REQD BY SYSTEM I INCL H20 , TANKS , MATL LOST 

C WRESUP WRITES AUX EQUIP REQUIREMENTS TO SCREEN (SCREENS 9 t 10) 

C DESGNB CONTAIN. DESIGN LOADS DATADASE 

C 8 S DATS CONTAINS SUDSYSTEM DATABASE 

C AUXILS CONTAINS AUXILIARY EQUIPMENT DATABASE 

C SBRSGN WRITES DESIGN LOADS DATABASE TO SCREEN FOR CHANGE/REVIEW 

C DSGNIN ALLOWS CHANGES TO DESIGN LOADS DATABASE 

C BSDTIN ALLOWS CHANGES TO SUBSYSTEM DATABASE 

C SBR8SDAT WRITES SUBSYSTEM DATABASE TO SCREEN FOR CHANGE/REVIEW 

C 8BRAUXIL WRITES AUXILIARY EQUIP DATABASE TO SCREEN FOR CHANGE/REVIEW 

C AUXILIN ALLOWS CHANGES TO AUXILIARY EQUIPMENT DATABASE 

C AUXLSTRT TAKES GENERIC AUX EQUIP DATABASE C. DISTRIBUTES EQUIP FOR 

C SUBSYSTEMS CHOSEN - PRIMARY EFFECT IS ON WRS 

C NUMUNIT ALLOWS SPECIFICATION OF NUMBER AND RELATIVE SIZE OF 

C 8UBSYTEMS 6 REDUNDANT UNITS 

C STORE STORES SUMMARY DATA FOR A GIVEN SYSTEM FOR LATER COMPARISON 

C TO OTHER SYSTEMS 

C COMPARE COMPARES UP TO 3 SYSTEMS BASED ON A POINT SYSTEM 

C POINT ASG COMPUTES POINT TOTALS OT EACH SYSTEH AND DISPLAYS RESULTS 

C POINTIN ALLOWS SPECIFICATION OF POINTS FOR EACH SUMMARY ITEM 

C INITL INITIALIZES ARRAYS FOR START OF NEW SYSTEM SELECTION 

C 
C 

C ITYPE (1,1) s SYSTEM NUMBER (1-50) 

C ITYPE (I, 2) = POTABLE VS HYGIENE H20 RECOVERED (WRS ), DUMP VS STORE (C02 RED) 

C ITYPE (I, 3) 3 NUMBER OF UNITS ( ITYPE (1/3)32, N=6 - 2 3-MAN SYSTEMS) 

C ITYPE (I, 4) = NUMBER OF BACKUP UNITS 

Q 

ITRACK=0 

5 CALL DESGNS 
CALL SSDATS 
CALL AUXILS 

4 CALL INITL 
ADUMP=* STORED' 

NUMBER=0 
NUMB=0 
PRINT 6 

6 FORMAT ( 16 (/ ) ) 

PRINT*,' ECLS Systems Assessment Program (ESAP) ' 

PRINT 3 

PRINT*, 'DO YOU WANT TO WRITE OUTPUT DATA TO:' 

PRINT*,' 1. FILE ONLY' 

PRINT*,* 2. SCREEN ONLY* 

PRINT*,' 3. BOTH FILE AND SCREEN (DEFAULT)' 

READ (5,1) IWRITE 
1 FORMAT (12) 

IF (IWRITE. LT. 1. OR. IWRITE. GT. 2) IWRITE'-=3 
PRINT 3 

3 FORMAT ( 5 (/)) 


PRINT* , 

• AIR 

REVITALIZATION* 


PRINT*, 

i t 



PRINT*, 

'02 GENERATION' 


PRINT*, 

' 0 . 

NONE' 


PRINT*, 

' 21. 

STATIC FEED - WES' 


PRINT*, 

' 22. 

SOLID POLYMER - LIQUID 

FEED* 

PRINT*, 

• 23. 

SOLID POLYMER - STATIC 

FEED* 

PRINT*, 

' 24. 

02/H2 STORAGE' 




30 PRINT*, ’CHOOSE NUMBER OP SUBSYSTEM TO ANALIZE* 
READ (5, *,ERRs30) INUM 
IP (INUM.EQ.O) GOTO 25 
IF (INUM. LT. 21. OR. INUM. GT. 24) GOTO 30 
IF (INUM.EQ.24) THEN 

PRINT* , • SUBSYSTEM IS NOT CURRENTLY MODELLED' 
GOTO 30 
ENDIF 

NUMBER=NUMBER+1 
ITYPE (NUMBER, 1) =INUM 

CALL NUMUNIT( ITYPE (NUMBER, 3) , ITYPE (NUMBER, 4 ) ) 

25 PRINT*, ' • 

PRINT * , • C02 REMOVAL ' 

PRINT*,' 0. NONE' 

PRINT*,' 1. EDC 

PRINT*,' 2. 8 AWD ' 

PRINT*,' 3. HYDROPHOBIC MOLE SIEVE' 

PRINT*,' 4. LIOH* 

PRINT*,' 5. FOUR BED MOLE SIEVE* 

PRINT*,' 6. SKY LAB MOLE SIEVE* 

10 PRINT*, » CHOOSE NUMBER OF SUBSYSTEM TO ANALIZE* 
READ ( 5 , * , E RRs 10) INUM 
IP (INUM.EQ.O) GOTO 15 
IP ( INUM . LT . 1 . OR . INUM . GT . 6 ) GOTO 10 
IF ( INUM . EQ . 5 . OR. INU'u. EQ . 6 ) THEN 

PRINT*,' SUBSYSTEM IB NOT CURRENTLY MODELLED* 
GOTO 10 
ENDIF 

NUMBERsNUMBER+1 
ITYPE (NUMBER, 1) =INUM 

CALL NUKUNIT (ITYPE (NUMBER, 3) , ITYPE (NUMBER, 4) ) 

IP r. ’'M . EQ . 4 . OR . INUM . EQ . 6 ) GOTO 3 5 

15 PR ( U - , « ' 

?,< £NT* , ' C02 REDUCTION* 

PRINT*,' 0. NONE* 

PRINT*,' 11. BOSCH' 

PRINT*,' 12. SABATIER* 

PRINT*,' 13. SABATIER/CH4 DISSOCIATION* 

20 PRINT*, ' CHOOSE NUMBER OF SUBSYSTEM TO ANALIZE* 
READ ( 5 , * , ERR=2 0 ) INUM 

IF (INUM.EQ.O) GOTO 35 

IF (INUM. LT. 11. OR. INUM. GT. 13) GOTO 20 

IF (INUM . EQ . 13 ) THEN 

PRINT*,' SUBSYSTEM IS NOT CURRENTLY MODELLED' 
GOTO 20 
ENDIF 

NUMBERsNUMBER+1 
ITYPE (NUMBER, 1) =INUM 

CALL NUMUNIT (ITYPE (NUMBER, 3) , ITYPE (NUMBER, 4 ) ) 

IF (INUM. EQ.ll.OR. INUM. EQ. 12) THEN 
IF (INUM.EQ.il) AVAL=' H2 ' 

IF ( INUM. EQ . 12 ) AVALS ' CO 2 /CH 4' 

PRINT 21 

21 FORMAT (/, IX, 'CHOOSE OPTION: • ) 

PRINT 2 2, AVAL 

22 FORMAT (T4, *1. STORE ',A7) 

PRINT 2 3, AVAL 

23 FORMAT (T4, *2. DUMP ',A7) 

24 READ ( 5 , * , ERR=2 4 ) INUM1 

IF ( INUM1 . NE . 1 . AND . INUM1 . NE . 2 ) GOTO 24 



•p V uiv 


33 

38 

39 


41 


45 


NUMB=NUMBER 
ITYPE (NUHB , 2 ) =IN0M1 
'F v-MUMl.EQ.2) ADUMP=« DUMPED* 
ENDIF 
IUNIT=0 
GROUP=0 

DO 38 I— 1 , NWNUM 
IP (IWATER (I) .EQ.O) GOTO 39 
GOTO 37 
PRINT * , ' ' 

GPOUP=GROUP+l 

PRINT*, 'WATER RECLAMATION' 

PRINT 41 

FORMAT (/, IX, 'ENTER NUMBER (8 ) -ONE 
'RECOVERED IN THI8 FLOW PATH') 
PRINT*, 'SELECTION* 

PRINT*,' ' 

PRINT*,' 0. END SELECTION 
IF ( IWATER ( 1) .EQ.O) PRINT* , 

( IWATER ( 2 5 .EQ.O) 

( IWATER ( 3 ) .EQ.O) 

(IWATER (4) .EQ.O) 

(IWATER (5) .EQ.O) 

(IWATER (6) .EQ.O) 

READ (5, *,ERR=45) INUM1 
IF (INUM1.EQ.0) GOTO 31 
IF ( INUM1 . LT .0 . OR . I NUM1 . GT . 6 ) 

IF ( IWATER { INUM1 ) .NE.O) THEN 

PRINT*,' WATER TYPE HAS ALREADY 
ELSE 

IWATER ( INUM1 ) =GROUP 


PER LINE-OF WATER TO BE 


OF 


IF 

IF 

IF 

IF 

IF 


PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 


TYPE 
1 


OF WATER RECOVERED* 
CONDENSATE WATER' 

C02 REDUCTION' 

HYGIENE WATER' 

CLOTHES WASH WATER' 
URINE WATER' 
DISHWASHER WATER' 


GOTO 4 5 


BEEN SELECTED' 


ENDIF 
GOTO 45 
. ’ PRINT*, 

i i 

33 PRINT*, 

i i 

PRINT*, 

i » 

PRINT*, 

' DEFI 

* 

•FLOW 

PRINT*, 


PRINT*, 

' EN'TL’ 

* 

' RE C L 

PRINT*, 

t ■ 

PRINT*, 

' 0 

PRINT*, 

' 31 

PRINT*, 

' 32 

PRINT*, 

' 33 

PRINT*, 

' 34 

PRINT*, 

• 41 

PRINT*, 

' 42 

PRINT*, 

• 43 


fE THE COMPLETE SUBSYSTEM ORDER FOR THE PRIMARY 
STREAM OF THE CURRENT WATER GROUP' 


(E NUMBER 
WATER' 


OF THE SUBSYSTEM TO * 


END WATER RECLAMATION SUBSYSTEM SELECTION' 
VCD* 

TIMES' 

AIR EVAP ' 

VPCAR* 

MULTIFILTRATION' 

HYPERFILTRATION' 

REVERSE uSMOSIS ' 

40 READ(5,*,EFR=40) INUM 
IF (INUM. EQ.O) GOTO 36 
IF (INUM. LT. 31. OR. INUM. GT. 43) GOTO 40 
IF (INUM. GT.34.AND.INUM.LT. 41) GOTO 40 
IF (INUM. EQ. 34) THEN 

PRINT*,' SUBSYSTEM IS NOT CURRENTLY MODELLED' 

GOTO 40 
ENDIF 

IUNIT=IUNIT+1 

NUMBER=NUMBER+1 


ITYPE (NUMBER, 1) =INUM 
JFLOW (GROUP, IUNIT)=INUM 

CALL NUMUNIT (ITYPE (NUMBER, 3) , ITYPE (NUMBER, 4 ) ) 

GOTO 33 

36 PRINT*, ' ' 

PRINT*, ' ENTER QUALITY OF WATER RECOVERED' 

PRINT*,' 1. POTABLE WATER' 

PRINT*,' 2 . HYGIENE WATER' 

READ ( 5 , * , ERR=3 6 ) IQUAL 

IF ( XQUAL. LT . 1 . OR . IQUAL. GT . 2 ) GOTO 36 

NUMB=NUMB+1 

ITYPE (NUMB, 2 ) = IQUAL 

GOTO 35 

37 PRINT*,' ' 

PRINT*,' ' 

PRINT*, 'DO YOU WISH TO SPECIFY ANY SECONDARY FLOW PATHS 7 (Y/N) » 

44 READ (5,11, ERR=3 7 ) ANSWER 
11 FORMAT (1A) 

IF (ANSWER. EQ. 'N' ) GOTO 50 
IGROUPsQROUP 
IIUNITsIUNIT 
1=0 

20 1=1+1 
J=0 

29 J=J+1 

IF (JFLOW(I,J) .EQ. 31) SSNAME='VCD» 

IF (JFLOW<I,J) .EQ.32) 8SNAME= • TIMES ' 

IF <JFLOW(I,J) .EQ.33) 8SNAHE='AIR EVAP ' 

IF (JFLOW(I,J) .EQ.34) B8NAME= • VPCAR» 

IF (JFLOW (I, J> .EQ. 41) BSNAME=' MULTI FILTRATION* 

IF ( JFLOW (I,J) . EQ . 4 2 ) 8SNAME=* HYPERFILTRATION' 

IF (JFLOW (I, J) .EQ. 43) 80NAME= » REVERSE OSMOSIS* 

IL=(I*10)+J 
PRINT*,' ' 

PRINT*, 'THE FIRST DIGIT OF THE NUMBER IN PARENTHESES REPRESENTS' 
PRINT* , 'THE FLOW GROUP NUMBER AND THE SECOND DIGIT REPRESENTS THE' 
PRINT*, 'NUMBER OF THE SUBSYSTEM IN THAT FLOW PATH.' 

PRINT*,' ' 

PRINT*,* DO YOU WISH TO PROCESS THE SECONDARY FLOW COMING OUT OF’ 
PRINT 57 , IL, SSNAME 

57 FORMAT (IX, 'THE (',12,') ',A15,' SUBSYSTEM? (Y/N)') 

ANSWERS' N' 

47 READ (5,11, ERR=47 ) ANSWER 

IF (ANSWER. EQ. 'N' ) GOTO 46 
PRINT*,' ' 

PRINT*, 'WILL THIS FLOW STREAM BE GOING INTO A PREDEFINED 

* 'SUBSYSTEM? (Y/N)' 

ANSWERS 'N' 

48 READ (5,11, ERR=48) ANSWER 

IF (ANSWER. EQ. » Y 1 ) THEN 

PRINT*,' • 

62 PRINT*, 'WHICH OF THE FOLLOWING SUBSYSTEMS WILL THE FLOW ', 

* 'BE ENTERING?* 

PRINT*,' ' 

PRINT*, 'THE FIRST DIGIT REPRESENTS THE FLOW GROUP NUMBER ', 

* 'AND THE SECOND DIGIT REPRESENTS THE NUMBER OF THE ', 

* 'SUBSYSTEM IN THAT FLOW PATH.' 

PRINT*,' * 

DO 49 K=l, GROUP 
DO 49 L=1 , IUNIT 



KL=(K*10)+L 


IF (JFLOW ( K , L) . EQ .31) 

PRINT*, * 

• , KL, ' . 

VCD* 

IF (JFLOW ( K , L) . EQ . 32 ) 

PRINT*, ' 

' ,KL, • . 

TIMES' 

IF (JFLOW ( K , L) . EQ .33) 

PRINT* , ' 

' /KL, • . 

AIR EVAP ' 

IF (JFLOW (K, L) . EQ • 3 4 ) 

PRINT*, ' 

' /KL, * . 

VPCAR' 

IF (JFLOW (K, L) . EQ .41) 

PRINT*, • 

' /KL, • . 

MULTIFILTRATION' 

IF (JFLOW ( K , L) .EQ.42) 

PRINT* , » 

' , KL, * . 

HYPERF I LT RAT I ON ' 

IF (JFLOW ( K, L) . EQ .43) 

PRINT*, • 

' , KL , ' . 

REVERSE OSMOSIS' 


49 CONTINUE 

43 READ(5,*,ERR=43) INUM3 

KFLOW ( I , J) =INUM3 
GOTO 46 
ENDIP 

PRINT*, ' ' 

PRINT* , * ' 

51 PRINT*, 'WHAT UNIT WILL THIS FLOW STREAM BE ENTERING?' 

PRINT*,' 31. VCD' 

PRINT*,' 32. TIMES' 

PRINT*,' 33. AIR BVAP' 

PRINT*,' 34. VPCAR' 

PRINT*,' 41. MULTIFILTRATION' 

PRINT*,' 42. HYPERFILTRATION' 

PRINT*,' 43. REVERSE OSMOSIS' 

READ (5, *,ERR=51) JNUM 

IF (JNUM. LT. 31. OR. JNUM.GT. 43) GOTO 51 
IF(JNUM. GT.34.AND.JNUM.LT. 41) GOTO 51 
IF {JNUM. EQ. 34) THEN 

PRINT*, ' SUBSYSTEM 18 NOT CURRENTLY MODELLED* 

GOTO 51 
ENDIF 

LFLOW ( I , J ) =JNUM 

NUMBER=NUMBER+1 

IUNIT-IUNIT+1 

IF (ANSWER. EQ. 'P' ) GOTO 60 

GROUP=GROUP+l 

60 ITYPE (NUMBER, 1)=JNUM 
JFLOW (GROUP, IUNIT) =JNUM 

CALL NUMUNIT( ITYPE (NUMBER, 3) , ITYPE (NUMBER , 4 ) ) 

PRINT*, ' ' 

52 PRINT*, 'WILL THIS WATER BE PROCESSED AGAIN OR STORED? (P/S)' 
READ (5,11, ERR=52 ) ANSWER 

IF f ANSWER. EQ. 'S') THEN 
TANKED=» STORED* 

53 PRINT*,* * 

PRINT*, 'ENTER QUALITY OF WATER RECOVERED* 

PRINT*,' 3. POTABLE WATER' 

PRINT*,' 2. HYGIENE WATER* 

READ (5, *,ERR=S3) IQUAL 
IF ( IQUAL. LT.l. OR. IQUAL. GT. 2) GOTO S3 
NUMB=NUMB+1 
ITYPE (NUMB , 2 ) =IQUAL 
ENDIF 

IF (ANSWER. EQ. 'P' ) THEN 

61 PRINT*, 'WILL THE PRIMARY FLOW FROM THIS NEW UNIT BE ', 

* 'ENTERING A PREDEFINED SUBSYSTEM? (Y/N) • 

READ (5,11, ERRs=61 ) ANSWER 
IF (ANSWER. EQ. *Y* ) THEN 
ANSWER=' P* 

GOTO 62 
ELSE 


A NSWER=' ?' 

J=J+1 
GOTO 51 
ENDIP 
ENDIP 
46 II=J+1 

IF <JFLOW(I,II) .NE. C ) GOTO 29 
JJ=I+1 

IF { JFLOW ( JJ , 1) . NE . 0 ) GOTO 28 
IF (JFLOW (Cfj, II) .NE.O) THEN 
1=1 + 1 
GOTO 29 
ENDIP 

50 CALL AUXLSTRT 
55 PRINT*,' ' 

PRINT*,' ' 

PRINT*, 'ENTER 1 TO SEE/CHANGE AVERAGE DESIGN LOADS' 

PR.:NT*, 'ENTER 2 TO SEE/CHANGE SUBSYSTEM DATA' 

PRINT* , • ENTER 3 TO SEE/CHANGE AUXILIARY EQUIPMENT DATA 1 
PRINT*, 'ENTER 4 TO SEE SYSTEM ASSESSMENT RESULTS' 

PRINT*, • ENTER 5 TO SELECT NEW SUBSYSTEMS, USING DATABASE ', 

* 'DESIGN LOADS 6 SUBSYSTEM DATA' 

PRINT*, 'ENTER 6 TO SELECT NEW SUBSYSTEMS, KEEPING CURRENT ', 

* 'DESIGN LOADS fc SUBSYSTEM DATA' 

PRINT*, 'ENTER 7 TO COMPARE SYSTEMS' 

PRINT*, 'ENTER 8 TO QUIT' 

READ ( 5 , * , EF,R= 55) IDECID 

IF (IDECID. LT. 1. OR. IDECID. GT. 8) GOTO 55 
IF ( IDECID. EQ.l) CALL 8BRSGN(6) 

IF ( IDECID. EQ. 2) CALL SBRSBDAT ( 6 ) 

IP (IDECID. EQ. 3) CALL SBRAUXIL(6) 

IF (IDECID. EQ. 4) CALL ANALIZE 
IF ( IDECID. EO. 5) GOTO 5 
IF (IDECID. EQ. 6) GOTO 4 
IP ( IDECID. EQ. 7) CALL COMPARE 
IF (IDECID. EQ. 8) GOTO 9999 
GOTO 55 

9999 CLOSE (UNIT=1) 

STOP 

END 

SUBROUTINE ANALIZE 

REAL N , M, N2 LEAK, N2 AIR, N2RPRS , N2COM, N2PURG , N2TOT , MAKEUP , MAKEUPR, 

* LAUNL 

PARAMETER ( NDSGN=5 6 , NSSDAT:=30 , NS YS=5 0 , NSUBS YS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER (IC0MPAR=17 ,NCOMPAR=20 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , 8SDATA (NSSDAT ,NSYS ) , 

* SUBSYS ( 0 S NSUBSYS ,NNUM) , N,R,RE ,M, I TYPE (NNUM,NITYP) , IWATER (NWNUM) , 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSA'JX (NAAUX , 3 ) ,WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ (30,NAAUX) , WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILW ( NNUM, 0 t NWAUX, 0 : 3 ) , 

* GROUP, IUNIT, JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR , NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 

COMMON /MATRL/ PPN2 , PP02 , PT0T,02MET ,02EVA ,02LEAK, 02 AIR, 02RPRS , 

* 02 COM , 02EDC , 02T0T , H2EDC , H2 BSCH , H2 SAB , H2 TOT , H2 STOR , C02MET , C02 EVA , 

* C02T0T,N2LEAK,N2 AIR, N2RPRS ,N2C0M,N2PURG ,N2T0T , H20GEN , H20REMRQ , 

* H20RED, C, CH4 , C02LST, C02 RED, H2STORR, CRES, CH4R, C02 LSTR, H20REM, 

* HAND, SHOWER, CLOTHES , DISHW, DRINK, FOODP , URINFL, EXPH20 , EVAH20 , 


* H2GREQ . K20MET, H20F00D, H20PR0D, H20T0T, SWEAT, HYGIENL, FOODPL, I.AUNL , 

* DIBHVL , COND , REDH20, MAKOLD , LHOWLD , HYGIENLD , CLOTHLD , H20URN , H2RED , 

* URJNLD , DIBHWLD , CONDR , CONDP , CONDS , REDH20R, REDH20P, RUDH208 , HYGIENR, 

* HYGIENP, HYGIEN8, CLOTHR, CLOTHP, CLOTHS, URINR, URINP, URIH8 , DIBHWR, 

* DIBHWS , OTHERLD , OTHERR , OTHERP , OTHERS , H20L0AD , H20REC , POTREC , POTREQ , 

* MAKEUP, EXCESS, H20STORR,MAKEUPR, EXCES8R, EVAH20LD , DI8HWP, H20ST0R, 

* EXPH20L, H20ARS , H2 REQ , FECAL , H20NET , HYGREC 

COMMON /SSLOAD/ WATER (NWAUX) , E (NWAUX, NWAUX) , AUXEQ (18,0:7,3) , STOREW , 

* CLOTHW, 

* CLOTHV, DISHWGHT , DISHV, TRA8HW, TRASHV, AUXMAT ( 3 ) 

COMMON /RATE8YS/ ITRACK, COMPAR(ICOMPAR, NCOMPAR) , 

* POINT (01 ICOMPAR) , RATE ( 0 : ICOMPAR, NCOMPAR) , 

* COMPARK ICOMPAR, 3) 

COMMON /'JHAR2/ COMP ARD (NCOMPAR) , COMPARL (NCOMPAR) 

COMMON /!PII,E/ FNAME(NSYS) 

COMMON /IWRT/ IWRITE 
CHARACTER* 12 FNAME 
CHARACTER* 6 ADUMP 
DIMENSION COUNT (2) 

C 

C SUB SYS ( I , 1-9 ) = SUBSYSTEM DATA FOR EACH SUBSYSTEM CHOSEN 

C 

C SUBSYS ( 0,J) = LOAD (LB/DAY) 

C SUBSYS ( 1,J) = AVERAGE POWER, LIGHT SIDE (WATTS) 

C SUBSYS ( 2 , J ) = AVERAGE POWER, DARK SIDE (WATT8) 

C SUBSYS ( 3 , J ) ss HEAT REJECTION (WATTS) 

C SUBSYS ( 4,J) = FLIGHT UNIT WEIGHT (LB) 

C SUBSYS ( 5 , J) = FLIGHT UNIT VOLUME (FT3 ) 

C SUBSYS ( 6 , J) = WEIGHT OF SPARES (LB) 

C SUBSYS ( 7 , J) = VOLUME OF SPARES (LB) 

C SUBSYS ( 8 , J) = WEIGHT OF CONSUMABLES (LB) 

C SUBSYS ( 9 , J) = VOLUME OF CONSUMABLES (FT3 ) 

C SUBSYS (10 ,J) = RELIABILITY (1-8) 

C SUBSYS (11, J) = TECHNOLOGY READINESS (1-8) 

C SUBSYS ( 12 , J ) = PACING TECHNOLOGY PROBLEMS (1-8) 

C SUBSYS ( 13, J) - SAFETY (1-8) 

C SUBSYS (14, J) = MAINTAINABILITY (1-8) 

C SUBSYS ( 15, J) = COMMONALITY (1-8) 

C SUBSYS ( 16, J) = MAINTENANCE TIME (HR) 

C SUBSYS (17, J) = AVERAGE POWER OVER ORBIT (WATTS) 

C SUBSYS ( 18 , J) = AUXILIARY EQUIPMENT WEIGHT (LB) - EXCL. LOST MATL & STORAGE 
C SUBSYS (19, J) = AUXILIARY EQUIPMENT VOLUME (FT3 ) -EXCL . LOST MATL & STORAGE 
C SUBSYS ( 2 0,J) = AUXILIARY EQUIPMENT POWER (WATTS) 

C SUBSYS (2 1, J) = AUX EQUIP- (LOST) MATERIAL WEIGHT (LB) 

C SUBSYS (22, J) = AUX EQUIP- (LOST) MATERIAL STORAGE EQUIPMENT (LB) 

C SUBSYS (23, J) = AUX EQUIP- (LOST) MATERIAL STORAGE EQUIPMENT (FT3 ) 

C SUBSYS (2 4 , J) = REDUNDANT UNIT WEIGHT (LB) 

C SUBSYS (2 5, J) = REDUNDANT UNIT VOLUME (FT3) 

C SUBSYS (2 6, J) = WATER WEIGHT, INITIAL STARTUP (LB) 

C SUBSYS (27, J) = OVERALL RATING (1-8) 

C SUBSYS ( 28, J) = INITIAL LAUNCH WEIGHT (LB) 

C SUBSYS (2 9, J) = ON ORBIT VOLUME (LB) 

C SUBSYS (30, J) = RESUPPLY WEIGHT (LB) 

C SUBSYS { 31, J) = RESUPPLY VOLUME (FT3 ) 

C SUBSYS (32, J) = EQUIVALENT WEIGHT (LB) 

C SUBSYS (3 3, J) = LIFETIME WEIGHT (LB) 

C SUBSYS (34, J) = LIFETIME VOLUME (FT3 ) 

C SUBSYS (3 5, J) = TOTAL POWER REQUIRED (WATTS) 

C 

C TOTALS (1-35, J)= SAME AS SUBSYS ARRAY 


c 

C TOTALS (I, 1) :: AR3 TOTALS 
C TOTALS (I, 2) rs WRS TOTALS 
C TOTALS (I, 3) = OVERALL TOTALS 

C 

N=DESIGF (1) 

R=DESIGN ;?) 

RE=DESI # 10 ) 

M=DEBIGN(3) 

CALL ARS 
CALL HRS 
CALL RESUP 

ALT.GHTs DESIGN ( 55 ) / ( DESIGN (55) -f DESIGN (55) ) 

ICNTW=3 

DO 2 0 = 1 , NUMBER 
ISYS=ITYPE (J, 1) 

IP ( ISYS : GE .21. AND . ISYS . LE .30) SUB8YS (0 , J) =02T0T 
IF (ISYS . GE • 1 . AND . ISYS . LE . 10 ) 8UB8YS ( 0 , J) =C02MET 
IF (ISYS. GE. 11. AND. ISYS. LE. 20) SUBSYS (0, J) =C02T0T 
SUBSY8 (17,J)=8UB8YS(1,J) * ALIGHT+SUBS YS (2 , J) * (1. -ALIGHT) 

IF (ISYS. GE. 21. AND. ISYS. LE. 30) IAUX=1 
IF (ISYS . GE . 1. AND. ISYS. LE. 10) IAUX=2 
IF (ISYS. GE. 11. AND. ISYS. LE. 20) IAUX=3 
IF (ISYS. GE. 31) THEN 
ICNTW=ICNTW+1 
IAUX=ICNTW 
ENDIF 

SUBS Y8 ( 18 , J ) = AUXEQ ( I AUX ,1,1) +AUXEQ ( I AUX ,2,1) 

SUBSYS ( 19 , J) =AUXEQ ( IAUX, 1,2) +AUXEQ ( IAUX, 2 , 2 ) 

SUBS YS ( 2 0 , J ) =AUXEQ ( IAUX ,1,3) +AUXEQ ( IAUX ,2,3) 

IF ( ISYS . GE . 11 . AND . ISYS . LE . 2 0 ) THEN 
SUBSYS ( 2 1 , J ) =AUXMAT { 1 ) 

ELSE 

SUBSYS ( 2 1 , J ) =AUXEQ ( IAUX ,3,1) +AUXEQ ( IAUX ,4,1) 

ENDIF 

SUBSYS ( 2 2 , J ) =AUXEQ ( IAUX ,.5,1) +AUXEQ ( IAUX ,6,1) 

SUBSYS ( 2 3 , J ) =AUXEQ { IAUX ,5,2) +AUXEQ ( IAUX ,6,2) 

SUBSYS (2 4 , J) =SUBSYS ( 4 , J) *ITYPE < J , 4 ) /ITYPE ( J , 3 ) 

SUBSYS ( 25 , J) =8UB0YS ( 5 , J ) * ITYPE ( J , 4 ) /ITYPE ( J, 3 ) 

IF (ISYS. GE. 31) SUBSYS(2£,u i =AUXEQ ( IAUX, 0 , 1) 

SUBSYS (27 , J) = (SUBSYS (10, J) *SUBSYS ( 11, J) *SUBSYS ( 12 , J ) *SUBSYS ( 13 , J ) * 

* SUBSYS (14, J) *SUBSYS(15,J) ) ** (1./6. ) 

SUBSYS (28, J) = SUB SYS ( 4 , J ) +SUBSYS ( 6 , J) +SUB8YS ( 8 ,J ) + (SUBSYS ( 18 , J ) + 

* SUBSYS ( 22, J) ) +SUBSYS (24 ,J) + SUB SYS (26 ,J) 

SUBSYS (2 9 , J ) = SUBSYS ( 5 , J ) +OUBSYS (7 , J ) +SUBSYS ( 9 , J ) + SUBSYS ( 19 , J ) + 

* SUBSYS (23 ,J) +8UB8YS (25, J) 

SUBSYS (30, J)=SUBSYS (6, J)+SUBEYS (8, J)+SUBSY8 (21, J) +SUBSYS (22 , J) 
SUBSYS (31, J)=SUBSYS (7 , J) +SUBSYS ( 9 , J ) +SUBSYS (23 , J) 

SUBSYS (32, J)=SUBSYS( 28, J)+SUBSYS (21, J)+ (SUBSYS (1,J) * ALIGHT* 

* DESIGN ( 52 ) +SUBSYS ( 2 , J) * ( 1 . -ALIGHT ) *DESIGN ( 53 ) ) +SUBSYS ( 3 , J ) * 

* DESIGN ( 54 ) +SUBSYS (20, J) * (ALIGHT*DESIGN ( 52 )+( 1 . -ALIGHT) * 

* DESIGN (53) ) 

SUBSYS (33 , J) =:SUBSYS (4 , J)+8UBSYS (18, J) + 

* SUBSYS (24, JJ+SUBSYS ( 2 6 , J) +8UB8Y8 (30, J) *ANINT (M*3 6 5 . /R) 

SUBSYS (34 , J) =SUBSYS (5,J) +SUBSYS (19, J)+SUBSYS (2 5, J) .• 

* SUBSYS (31, J) *ANINT(M*365./R) 

SUBSYS (35, J) +SUBSYS ( 17 , J ) + SUBSYS (20 ,J) 

2 CONTINUE 
DO 6 J=l,3 

( DO 5 1=1 , NSUBSYS 



TOTALS (I ,J)=0. 

5 CONTINUE 

6 CONTINUE 
COUNT (1)=0. 

COUNT ( 2 ) =0 . 

DO 20 1=1, NUMBER 
IP (ITYFE(I,1) .LE.30) K=1 
IF ( ITYPE (1,1) . or .31,' K=2 
COUNT ( K) =COUNT ( K) +1 . 

DO 10 J=1 , NSUBSYS 

IF (J.LE.9.0R. ( J . GE . 16 . AND. J . LE . 17 ) .OR. ( J . GE . 2 4 . AND . J . LE . 2 5 ) ) 

- TOTALS ( J , K) =TOTALS ( J , K) +SUBSYS ( J , I ) 

11 ( (J.OE. 10.AND. J. LE. 15) .OR.J.EQ.27) THEN 

IF (TOTALS ( J, K) . EQ . 0 . ) TOTALS (J , K) =1 . 

TOTALS ( J , X) =T0TAL8 ( J , K) *SUBSYS(J,I) 

ENDIF 

10 CONTINUE 
20 CONTINUE 

DO 30 K=l,2 
DO 25 J=10,15 

IF (COUNT ( K) .EQ.0.) GOTO 25 

IF (TOTALS (J,K) .NE.O. ) TOTALS ( J , K) =T0TAL8 ( J , K) ** ( 1 • /COUNT ( K) ) 

25 CONTINUE 

IF (COUNT (K) .EQ.O. ) GOTO 30 

TOTALS ( 27 , K) =TOTALS ( 27 , K) * * ( 1 . /COUNT ( X) ) 

30 CONTINUE 

DO 40 J=l, NSUBSYS 

IF (J.LE.9.0R. (J .GE. 16. AND . J . LE . 17 ) .OR. ( J . GE . 2 4 . AND. J . LE . 2 5 ) ) 

* TOTALS ( J , 3 ) =T0TALS ( J, 1) +TOTALS (J, 2) 

IF ( (J.GE. 10. AND. J.LE. 15) .OR.J.EQ.27) TOTALS (J, 3 ) = (TOTALS ( J , 1) * 

* TOTALS (J,2) ) **. 5 
40 CONTINUE 

TOTALS ( 18 , 1) =AUXEQ ( 16 , 1 , 1 ) +AUXEQ (15,2, V 
TOTALS (18,2) =AUXEQ (17,1,1) +AUXEQ (17,2,1) 

TOTALS (10,3) =TOTALS (18,1) +TOTALS (18,2) 

TOTALS ( 19 , 1) =AUXEQ (16,1,2) +AUXEQ (16,2,2) 

TOTALS ( 19 , 2 ) =AUXEQ (17,1,2) +AUXEQ (17,2,2) 

TOTALS (19,3) =TOTALS (19,1) +T0TAL8 (19,2) 

TOTALS (20,1) =AUXEQ (16,1,3) +AUXEQ (16,2,3)+ 

* AUXEQ (16,5,3) +AUXEQ (16,6,3) 

TOTALS (20,2) =AUXEQ (17,1,3) +AUXEQ (17,2,3)+ 

* AUXEQ (17,5,3) +AUXEQ (17,6,3) 

TOTALS (20,3) =TOTALS (20,1) +TOTALS (20,2) 

TOTALS (21,1) =AUXEQ (16,3,1) +AUXEQ (16,4,1) 

TOTALS (21,2) =AUXEQ (17,3,1) +AUXEQ (17,4,1) 

TOTALS (21,3) =TOT ALS (21,1) +TOTALS (21,2) 

TOTALS (22,1) =AUXEQ (16,5,1) +AUXEQ (16,6,1) 

TOTALS (22,2) =AUXEQ (17,5,1) +AUXEQ (17,6,1) 

TOTALS (22,3) =TOTALS (22,1) +TOTALS (22,2) 

TOTALS (23 , 1) =AUXEQ (16,5,2) +AUXEQ (16,6,2) 

TOTALS (23,2) =AUXEQ (17,5,2) +AUXEQ (17,6,2) 

TOTALS (23,3) =TOTALS (23,1) +TOTAL8 (23,2) 

TOTALS (26,1) =AUXEQ (16,0,1) 

TOTALS (2 6,2)=AU:.j&y (17,0,1) 

TOTALS (26,3) =TOTALS (26,1) +TOTALS (26,2) 

DO 50 K=l,3 

TOTALS ( 28 , K) =TOTALS ( 4 , X, +TOTALS ( 6 , K) +TOTALS ( 8 , K) +TOTALS ( 18 , K) + 

* TOTALS ( 22 , K) +TOTALS ( 2 4 , X) +TOTALS ( 2 6 , K) 

TOTALS ( 29 , K) =TOTALS ( 5 , K) +TOTALS (7 , K) +TOTALS ( 9 , K) +TOTALS ( 19 , K) + 

* TOTALS ( 23 , K) +TOTALS ( 2 5 , K) 


TOTALS ( 3 0 , K ) ^TOTALS < 6 , E ) 4-TOTALS ( #» > K ) 4- TOTALS ( 2 1 , K ) 4 TOTALS ( 2 2 , K ) 
TOTALS ( 3 1 , K ) =TOTALS ( 7 , F ) +TOTALH ( 9 , K) 4-TOTAL8 ( 2 3 , K ) 

TOTALS ( 32 , K) =TOTALS ( 28 , Kj 4-TOTALS (21 , K) 4- (TOTALS ( 1, K) * ALIGHT* 

* DESIGN ( 52 ) 4-TOTALS ( 2 , K) *(1. -ALIGHT) *DESIGN(33) ) 4-TOTALS ( 3 ,J ) * 

* DESIGN ( 34 ) 4-TOTALS (2 0 , J ) * (ALIGHT* DESIGN (52 ) 4- ( 1 . -ALIGHT) * 

* DESIGN (53)) 

TOTALS ( 3 3 , K) =TOTALS ( 4 , K) 4-TOTALS ( 18 , K) f TOTALS ( 2 4 , K) 4- 

* TOTALS (26 ,K) 4-TOTALS (30, K) *ANINT (M*3 65 ./&> 

TOTALS ( 3 4 , K) =TOTALS ( 5 , K) 4-TOTALS ( 19 , K) 4-TOTALS ( 2 5 , K) 4- 

* TOTALS (31, K) *ANINT (M*365./R) 

TOTALS (35, K)=TOTALS( 17, K) 4-TOTALS (20, K) 

50 CONTINUE 

IF (IWRITE.EQ.2) GOTO 45 

NWRITE=1 

WRITE (NWRITE, 41) 

41 FORMAT(80 (•*'),/, 80 (•*') > 

CALL SRBSUB (NWRITE) 

CALL WARSMAT (NWRITE) 

CALL WWR8MAT (NWRITE) 

CALL WRESUP (NWRITE) 

CALL SBRAUXIL (NWRITE) 

CALL 8BRSGN (NWRITE) 

CALL 8BRSBDAT (NWRITE) 

WRITE (NWRITE, 42) 

42 FORMAT (4 (/) ) 

45 IF ( I WRITE . EQ . 1 ) GOTO 90 
NWRITE=6 

CALL SRBSUB (NWRITE) 

CALL WARSMAT (NWRITE) 

CALL WWRSMAT (NWRITE) 

CALL WRESUP (NWRITE) 

90 CALL STORE 
RETURN 
END 


SUBROUTINE ARS 

REAL N, M , N2 LEAK , N2 AIR , N2 RPRS , N2COM , N2 PURG , N2 TOT , MAKEUP , MAKEUPR , 

* LAUNL 

PARAMETER (ND8GN=56 ,NSSDAT=30 ,N8YS=50 , NSUBSYS=35 ,NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , S8DATA (NSSDAT , NSYS ) , 

* SUBSYS ( 0 : NSUBSYS , NNUM) ,N,R,RE,M, ITYPE (NNUM,NITYP) , IWATER (NWNUM) , 

* TOTALS (NSUBSYS, 3) , NUMBER, ARS AUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARE AUXQ( 30, NAAUX) ,WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA (NNUM, NAAUX, 0:3) ,AUXILW (NNUM, 0 s NWAUX, 0 : 3 ) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* 8WATER( NAAUX, NAAUX) , PSWATER (NAAUX) ,LFLOW( NCOMPAR, NCOMPAR) 

COMMON /MATRL/ PPN2 , PP02 , PTOT,02MET,02EVA, 02LEAK,02 AIR, 02RPRS , 

* 02COM, 02 EDC , 02TGT , H2EDC , H2BSCH , H2 SAB , H2TOT , H2 STOR, C02MET , C02 EVA , 

* C02T0T , N2 LEAK , N2 AIR , N2RPRS , N2COM , N2 PURG , N2TOT , H2 OGEN, H20REMRQ , 

* H20RED, C, CH4 , C02LST , C02RED, H28TORR, CRES , OH4R , C02LSTR, H20REM , 

* HAi>1D , SHOWER , CLOTHES , DISKW, DRINK , FOODP , URINFL , EXPH20 , EVAH20 , 

* H20REQ , H20MET , H20F00D , H20PR0D , H20T0T , SWEAT , HYGIENL , FOODPL , LAUNL , 

* DISHWL , COND , REDH20 , HANDLD , SHOWLD , HYGIENLD , CLOTHLD , H20URN, H2 RED , 

* URIHLD,- DISHWLD, CONDR, CONDP, CONDS , REDH20R, REDH20P, REDH20S , LYGIENR , 

* HYGIENP, HYGIENS , CLOTHR , CLOTHP , CLOTHS , URINR, URINP , URINS , DISHWR , 

* DI BMS , OTHERLD , OTHERR , OTHERP , OTHERS , H20L0AD , H20REC , POTREC , POTREQ , 


o o o o o o 


* MAKEUP, EXCESS, H20S'j.'0RR, MAKEUPR. EXCF3BR, EVAH2CLD , DISHWP, H208T0R, 

* EXPH20L, H20ARS , H2REQ, FECAL, H20NET , HYGREC 

COMMON /SB LOAD/ WATER < NWAUX) , E { NWAUX , NWAUX ) , AUXEQ ( 18 , 0 I 7 , 3 ) ,STOREW, 

* CLOTHW, 

* CLOTHV, DIBHWGKT , DIBHV, TRASHW , TRA8HV , AUXMAT ( 3 ) 

CHARACTER* 6 ADUMP 

PPN2=DE8IGN(4) 

PP02=DESIGN ( 5 ) 

PT0T=PP02+PPN2 

N2LEAK= (PPN2/PT0T) *DESIGN(6) 

N2AIR= (PPN2/PTOT) *DESIGN(7) 

N2RPRS=0. 

N2COM=0 • 

N2 PURG— 0 . 

N2TOT=N2LEAK+N2 AIR+N2 RPR8+H2COM+N2PURG 

C02MET=DESIGN(9) *N 
C02EVA=DE8IGN ( 12 ) *RE/R 
C02T0T=C02MET+C02EVA 

02 GEN REQUIREMENTS (SIZING BASED ON 02 GEN) 

El=-I . 0 

CALL SBR02GEN (PP02 , PTOT , 02MET , 02 EVA, 02 LEAK, 02 AIR , 02 RPR8 , 02COM, 

* 02EDC , 02 TOT , C02MET) 

DO 10 1=1, NUMBER 

IP ( ITYPE (1,1) . EQ .21) CALL SPWES (I, E1,02T0T) 

IP (ITYPE(I,1) . EQ.22) CALL SPOLLP ( I , El , 02T0T) 

IP ( ITYPE (1,1) . EQ . 2 3 ) CALL SPOLSP ( I , El , 02T0T) 

IP ( ITYPE (1,1) . EQ .24) CALL 02ST0R ( I , El , 02T0T) 

10 CONTINUE 

H2TOT=2 ,/16 . *02T0T 
H20GEN=18 . /16 . *02T0T 
IP (El.EQ.-l.O) H2TOT=0. 

IF (El.EQ.-l.O) H2OGEN=0. 


C02 REMOVAL REQUIREMENTS (SIZING BASED ON C02 PRODUCED) 
H2EDC=0. 

H2OREM=0 . 

H20REMRQ=0 . 

DO 20 1=1 , NUMBER 
IF (ITYPE(I,1) .EQ.l) CALL 
IP (ITYPE (1,1) .EQ. 2) CALL 
IF ( ITYPE (1,1) . EQ . 3 ) CALL 
IF (ITYPE (1,1) .EQ. 4) CALL 
IF { ITYPE (1,1) . EQ . 5 ) CALL 
IF (ITYPE(I,1) . EQ . 6 ) CALL 
20 CONTINUE 


EDC ( I , C02MET, 02EDC, H2EDC , H20REM) 
BAWD ( I , C02MET , H20REM, H20REMRQ ) 
HKOLflV ( I , C02MET , H20REM) 

LIOH ( I , C02MET, H20REM) 

FBDMSV ( I , C02MET, H20REM) 

SKLMSV ( I , C02MET , H20REM) 


C02 REDUCTION REQUIREMENTS (SIZING BASED ON C02 PRODUCED) 
H2AVAL=H2TOT-H2EDC 
H2BSCH=0. 

H2SAB=0. 

C=0. 

CH4=0. 

C02RED=0. 

H2ORED=0 . 

DO 30 1=1, NUMBER 

IF (ITYPE (1,1) .EQ. 11) CALL BOSCH ( I , C02T0T , H2 AVAL, H20I ED, C02RED , 
* C , H2 BSCH) 



IF (ITYPE(I,1) .EQ.12) CALL CABAT ( I , CORTOT ,H2 AVAL , H20RED , C02RED , 

* CH4 , H28AB) 

IF (ITYPE(I,1) .EQ.13) CALL 8AECH4 (I ,CO2TOT,H2AVAL,H20RED,CO2RED, 

* C,H2SAB) 

30 CONTINUE 

C02LST=C02T0T-C02RED 
H2 RED= AKAX1 ( H2 BSCH , H2 S AB ) 

H2 REQ=H2 RED+H2 EDC 
H2STOR=AKAX1(0 . , H2 AVAL-H2RED) 

H2STORR=H2STOR*R 

CRES=C*R 

CH4R=CH4*R 

C02LSTR=C02LST*R 

H20AR8=H20GEN+H20REMRQ-H20REM-H20RED 

RETURN 

END 

SUBROUTINE WRS 

REAL N,M, N2 LEAK, N2 AIR, N2 RPR8 , N2COM , N2 PURG , N2TOT, MAKEUP, MAKEUPR, 

* LAUNL 

PARAMETER (NDSGN=5 6 , NS8DAT=3 0 , N8Y8=50 , N8UBSY8=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=1 6 , NITYP=4 > 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP, TANKED 

COMMON /GENRL/ DE8 IGN ( NDSGN) , S8DATA (NSSDAT , N8Y8 ) , 

* SUBSYS (0 ! NSUBBYS , NNUM) , N, R , RB , M, ITYPE < NNUM, NITYP) , I WATER (NWNUM) , 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 S 3 ) , 

* ARSAUXQ (30, NAAUX ) , WRS AUXQ ( NWNUM , 0 J NWAUX ) , 

* AUXI LA (NNUM, NAAUX, 0:3) ,AUXILW (NNUM, 0 l NWAUX, 0 : 3 ) , 

* GROUP, IUNIT, JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR,NCOMPAR) , 

* SKATER (NAAUX, NAAUX) , PSWATER ( NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 

COMMON /MATRL/ PPN2 , PP02 , PTOT , 02MET, 02EVA , 02 LEAK , 02 AIR, 02RPRS , 

* 02 COM, 02 EDC , O2T0T, H2EDC, H2B8CH, H2 SAB , H2T0T, H28T0R, C02MET, C02EVA, 

* C02T0T, N2 LEAK, N2 AIR, N2RPRS,N2 COM, N2 PURG , N2T0T, H20GEN, H20REMRQ , 

* H2 ORED , C , CH4 , C02 LST , C02RED, H28TORR , CRE8 , CH4R, C02 LSTR, H20REM , 

* HAND, SHOWER, CLOTHE 8 , DISHW, DRINK, FOODP , URINFL , EXPH20, EVAH20, 

* H20REQ ,H20MET,H20F00D ,H20PR0D,H20T0T, SWEAT, HYGIENL, FOODPL, LAUNL, 

* DISHWL,C0ND,REDH20,HANDLD,8H0WLD,HYGIENLD,CL0THLD,H20URN,H2RED, 

* URINLD , DISHWLD , CONDR , CONDP , CONDS , REDH20R , REDH2 OP , REDH20S , HYGIENR , 

* HYGIENP , HYGIENS , CLOTHR , CLOTHP , CLOTHS , URINR , URINP , URINS , DI SHWR , 

* DI8HWS ,OTHERLD,OTHERR,OTHERP /OTHERS , H20L0AD ,H20REC , POTREC , POTREQ , 

* MAKEUP , EXCESS ,H20STORR, MAKEUPR , EXCESSR , EVAH20LD , DISHWP , H2 OSTOR , 

* EXPH2 OL , H2 OARS , H2 REQ , FECAL , H2 ONET , HYGREC 

COMMON /SSLOAD/ WATER (NWAUX) ,E (NWAUX, NWAUX) ,AUXEQ(18 ,0 :7 ,3) ,STOREW, 

* CLOTHW , 

* CLOTHV ,DISHWGHT , DISHV,TRA8HW,TRASHV, AUXMAT ( 3 ) , 

* EFF (NWAUX) ,SSWATER (NWAUX) ,TSWATER( NWAUX) 

DIMENSION WATERS (NWAUX) ,TWATER (NWAUX) , EF (NWAUX , NWAUX) 

CHARACTER* 6 ADUMP 
CHARACTER* 6 TANKED 

HAND=DESIGN(28) *N 
SH0WER=DESIGN(29) *N 
CLOTHES=DESIGN ( 3 0 ) *N 
DISHW=DESIGN (31) *N 
DRINK=DESIGN(15) *N 
FOODP=DESIGN(I6) *N 
URINFL=DESIGN(2 6) *N 
EXPH20— DESIGN (32) *N 
EVAH20=DESIGN ( 13 ) *N 


POTREQ=DRINK+FOODP 

H20REQ=HAND+SH0WER+CL0THE8+DISHW+DRINK+F00DP+tJRINFL+EXPK20 
* +EVAH20+H20REMRQ+H20GEN 

H20MET=DESIGN ( 18 ) *N 
H20FOOD=DE8IQN ( 17 ) *N 
H20PR0D=H20MET+H20F00D 
H20T0T=H20REQ+H20PR0D 
BWEAT=DESIGN(24) *N 
HYGIENL=DESIGN ( 19 ) *N 
FOODPL=DESIGN(20) *N 
LAUNL=DESIGN(22) *N 
DIBHWL=DESIGN(23) *N 
EXPH20L-DESIGN (21) *N 

C0ND=8WEAT+HYGIENL+F00DPL+LAUNL+DISHWL+H20REM+EXPH2GL 
FECAL=DE8IGN ( 27 ) *N 
C EVA+EXP H2Q LOST 

EVAH20W=DESIGN(14 ) *N + DESIGN ( 3 3 ) *N 
C EVA+EXP H20 LOAD 

BVAH2OLD=(EVAH2O+EXPH20) -EVAH20W-EXPH20L 
REDH20—H20RED 

HANDLD=HAND-HYGIENL* (HAND/ (HAND+SHOWER) ) 
SHOWLD=SHOWER-HYGIENL* ( SHOWER/ ( HAND+SKC’WER) ) 
HYGIENLD=HANDLD+SHOWLD 
CL0THLD=CL0THE8-LAUNL 
F20URN=DE8IGN(25) *N 
URINLD=URINFL+H20URN+EVAH20LD 
DISHWLD=DISIIW-DI8HWL 
C 

DO 5 1=1, NWAUX 
DO 5 J=l, NWAUX 

5 E(I,J)=0. 

DO 6 1=1, NWAUX 

EFF (I)=0 . 

SSWATER ( I ) =0 . 

WATERS (I) =0. 

TWAl'ER ( I ) =0 . 

TSWATER ( I ) =0 . 

6 WATER ( I) =0. 

DO 7 1=1, NUMBER 

IF ( ITYPE ( X , 1 ) .EQ.31) EFF(I)=0.96 

IF (ITYPE (1,1) .EQ.32) EFF(I)=0.939 
IF (ITYPE (1,1) . EQ . 3 3 ) EFF(I)=1.0 
IF ( ITYPE ( I , 1 ) .EQ.34) EFF(I)=0.0 
IF ( ITYPE ( I , 1 ) .EQ.41) EFF(I)=1.0 
IF { ITYPE ( 1 , 1) .EQ.42) EFF(I)=0.92 
IF ( ITYPE (1,1) » EQ >43) EFF(I)=0.96 

7 CONTINUE 

DO 10 1=1, GROUP 

IF ( I WATER ( 1) « EQ . I ) WATER ( I ) =WATER ( I ) +COND 
IF ( IWATER ( 2 ) . EQ . I ) WATER ( I ) =WATER ( I ) +REDH20 
IF ( IWATER ( 3 ) . EQ . I ) WATER ( I ) =WATER ( I ) +HYGIENLD 
IF (IWATER(4) . EQ. I) WATER ( I ) =WATER ( I ) +CLOTHLD 
IF ( IWATER ( 5 ) . EQ . I ) WATER ( I ) =WATER ( I ) +URINLD 
IF ( IWATER ( 6 ) . EQ . I ) WATER ( I ) =WATER ( I ) +DISHWLD 
TWATER ( I ) =WATER { I ) 

10 CONTINUE 
C 

CONDR=0 . 

REDH2OR=0 . 

HYGIENR=0 . 



CLOTHR=0. 

URINR=0 . 

DIBHWR=0 . 

ZCONDR=COND 
ZREDH20R=REDH20 
ZHYQIENRrrHYOIENLD 
ZCLOTllR=CLOTHLD 
ZURINR=URINLD 
ZDI8HW R=DISHWLD 
C 

DO 2 ? 1=1, GROUP 
DO 30 J=1 , IUNIT 

NUM= (NUMBER-IUNIT) +J 
IF (JFLOW (I ,J) .EQ.31) THEN 

CALL VCD (NUM, WATER (I) ,E(I,J) ) 
SUBSYS ( 0 , NUM) =WATER(I) 

SKATER (I , J ) = WATER (I)*(1.0-E(I,J) ) 
WATER ( I ) =WATER ( I ) *E(I,J) 

ENDIF 

IF ( JFLOW ( I , J ) .EQ.32) THEN 

CALL TIMES (NUM, WATER(I) ,E(I,J) ) 
SUBS YS ( 0 , NUM) =WATER ( I ) 

SKATER (I, J)=WATER(I) * (1.0-E (I, J) ) 
WATER ( I ) =WATER (I) *E (I , J) 

ENDIF 

IF (JFLOW (I ,J) .EQ.33) THEN 

CALL AIRE VP (NUM , WATER ( I ) , E (I , J) ) 
SUB SYS { 0 , NUM) = WATER ( I ) 

SKATER ( I , J ) =WATER ( I ) * ( 1 . 0-E (I, J) ) 
WATER ( I ) =WATEK (I) *E ( I , J ) 

ENDIF 

IF (JFLOW ( I , J ) . EQ .34) THEN 

CALL VPCAR(NUM,WATER(I) ,E (I, J) ) 
SUBSYS ( 0 , NUM) =WATER ( I ) 

S WATER (I , J ) =WATER ( I ) * (1.0-E (I, J) ) 
WATER ( I ) =WATER ( I ) *E (I, J) 

ENDIF 

IF ( JFLOW ( I , J ) .EQ.41) THEN 

CALL MF (NUM,WATER(I) ,E (I, J) ) 
SUBSYS ( 0 , NUM) =WATER ( I ) 

BWATER ( T - J) =WATER(I) *(1.0-E(I,J>) 
WATER (1) =WATER(I) *E(I,J) 

ENDIF 

IF (JFLOW ( I , J ) . EQ . 42 ) THEN 

CALL HF (NUM, WATER (I) ,E(I,J) ) 
SUBSYS ( 0 , NUM) =WATER ( I ) 

S WATER ( I , J ) = WATER (I) * (1. 0-E (I, J) ) 
WATER ( I ) =WATER ( I ) *E (I, J) 

ENDIF 

IF ( JFLOW ( I , J ) .EQ.43) THEN 

CALL RO (NUM, WATER (I) , E ( I , J) ) 
SUBSYS (0 ,NUM) =WATER(I) 

SWATER ( I , J ) =WATER ( I ) *(1.0-E(I,J)) 
WATER ( I ) =WATER ( I ) *E (I, J) 

ENDIF 

30 CONTINUE 
20 CONTINUE 
C 

CONDP=0. 

REDH20P=0. 


HYGIENP=0 . 

CLOTHPsO. 

URINP=0. 

CI6HWP=0. 

DO 18 K=l, GROUP 
DO 19 L=1,NWNUM 

IF(IWATER(L) .EQ.K) GOTO 18 
19 CONTINUE 
GOTO 15 
18 CONTINUE 

15 DO 17 M— 1 , IUNIT 

IF ( JFLOW ( R , M) . NE . 0 ) GOTO 16 
17 CONTINUE 

16 NUM=M+ (NUMBER-IUNIT) 

DO 60 1=1, GROUP 

DO 60 J=l, IUNIT 

111= (NUMBER-ItJNIT) +1 
IF(LFLOW(I,J) .EQ. 31) THEN 

CALL VCD (NUM, S WATER ( I , J ) ,EF(I,J) ) 

SUBSYS ( 0 , NUM) =8 WATER ( I , J ) +8UBSY8 ( 0 , NUM) 
BWATER(I,J)=SWATER(I,J) *EF (1/ J) 

IF (TANKED. EQ. ' STORED* ) THEN 

IF ( ITYPE (111,2) .EQ.l) 8 8 WATER ( I ) = SWATER ( I , J ) 
IF ( ITYPE ( III , 2 ) .EQ.2) TBWATER ( I ) =8WATER ( I , J ) 
ENDIF 
NUM=NUM+1 
ENDIF 

IF ( LFLOW ( I , J ) , EQ.32) THEN 

CALL TIMES (NUM, SWATER ( I , J) ,EF(I,J) ) 

SUBSYS (g, NUM) =SWATER (I, J)+8DBSYS (0, NUM) 
SWATER(I, J) =SWATER(I, J) *EF(I, J) 

IF (TANKED. EQ. 'STORED' ) THEN 

IF (ITYPE (III, 2) .EQ.l) 8S WATER ( I ) =S WATER ( I , J) 
IF ( ITYPE ( II I , 2 ) .EQ.2) TSWATER (I ) =SWATER (I , J ) 
ENDIF 
NUM=NUM+1 
ENDIF 

IF ( LFLOW ( I , J ) . EQ . 3 3 ) THEN 

CALL AIRE VP (NUM, SWATER(I, J) ,EF(I, J) ) 

SUBSYS ( 0 , NUM) =SWATER ( I , J ) +SUBS YS ( 0 ,NUM) 
SWATER ( I , J) =SWATER ( I , J ) *EF ( I , J ) 

IF (TANKED. EQ. 'STORED' ) THEN 

IF (ITYPE ( III , 2 ) .EQ.l) 8S WATER ( I ) =SWATER ( I , J ) 
IF (ITYPE (III, 2) .EQ.2) TSWATER (I ) =SWATER (I , J ) 
ENDIF 
NUM=NUM+1 
ENDIF 

IF ( LFLOW ( I , J ) . EQ . 3 4 ) THEN 

CALL VPCAR ( NUM , t> W7.TER ( I , J) ,EF(I,J) ) 

SUBSYS ( 0 , NUM) =8WATER (I, J) +SUBSYS ( 0 , NUM) 
SWATER ( I , J ) =SWATER ( I , J) *EF (I, J) 

IF (TANKED. EQ. 'STORED' ) THEN 

IF ( ITYPE ( III , 2 ) .EQ.l) SSWATER ( I ) =S WATER (I , J ) 
IF (ITYPE (III, 2) .EQ.2) TSWATER (I ) =SWATER (I ,J ) 
ENDIF 
NUM=NUM+1 
ENDIF 

IF ( LFLOW ( I , J ) . EQ . 4 1 ) THEN 

CALL MF (NUM, SWATER ( I , J ) ,EF(I,J) ) 



8UDaY0 ( 0 ,NUM)=BWATER(I, J)+8UB8YS (0,NUM) 

8 WATER ( I / J ) =8 WATER ( I , J ) *EP(X,J) 

IF {TANKED. EQ. ' STORED' ) THEN 

IF(ITYPE(III,2) .EQ.l) 88WATER { I ) =8 WATER ( I , J ) 

IF ( ITYPE ( II I , 2 ) . EQ . 2 ) T8 WATER ( I ) =8WATER ( I , J ) 

ENDIF 

NUM=NUM-*-l 

ENDIF 

I F ( LFLO W ( I , J ) . EQ . 4 2 ) THEN 

CALL HF ( NUM , 8 WATER { I , J ) ,EF(I,J) ) 

SUBSY8 { 0 , NUM ) =8 WATER (I,J)+8UBBY8 (0 , NUM) 

8WATER ( I / J ) =8 WATER ( I / J ) *EF(I,J) 

IF (TANKED . EQ. • STORED 1 ) THEN 

IF ( ITYPE ( III / 2 ) .EQ.l) SSWATER ( I ) =8WATER ( I , J ) 

IF ( ITYPE ( III , 2 ) . EQ . 2 ) TSWATER ( I ) =SWATER { I , J ) 

ENDIF 

NUM=NUM+1 

ENDIF 

IF(LFLOV(I, J) .EQ. 43) THEN 

CALL RO (NUM , SWATER ( I , J ) , EF ( I , J ) ) 

8UBSYB (0/ NUM) =SWATER { I , J ) +BUB8Y8 { 0 , NUM) 

SWATER ( I , J) = SWATER ( I , J ) *EF(I,J) 

IF(TANKED.EQ. 'STORED' ) THEN 

IF (ITYPE (III, 2) .EQ.l) S8WATER ( I ) =SWATER { I , J ) 

IF (ITYPE (III, 2) » EQ • 2 ) TSWATER { I ) =8 WATER { I , J) 

ENDIF 

NUM=NUM+1 

ENDIF 

60 CONTINUE 

DO 40 1=1, GROUP 
DO 40 J=1 , I UNIT 

IF (KFLOW(I, J) .NE. 0) THEN 
I 11= KF LOW ( I , J ) /10 
JJJ=KFLOW(I, J)- (111*10) 

DO 50 K=JJJ , IUNIT 

NUM= (NUHBER-IUNIT) +K 

IF ( JFLOW ( III , K) . EQ . 0 ) GOTO 50 

SUB8YS ( 0 , NUM) =8 WATER ( I , J) +SUBSYS { 0 , NUM) 

IF(E (III,K) .NE.O) SWATER { I , J ) =8WATER ( I , J ) *E (III,K) 
50 CONTINUE 

PS WATER ( III ) =SWATER ( I , J ) 

WATERS ( I ) =SWATER (I, J) 

ENDIF 

40 CONTINUE 

DO 21 1=1, GROUP 

JJJ= (NUMBER-IUNIT) +1 
IF ( IWATER ( 1 ) . EQ . I ) THEN 
DO 22 J=l, IUNIT 

JJ= (NUMBER-IUNIT) +J 

22 IF(JFLOW(I, J) .NE.O) ZCONDR=ZCONDR*EFF ( JJ ) 

IF ( ITYPE { JJ J , 2 ) . 3(J . 1 ) CONDP=ZCONDR 

ZCONDIl=ZCONDR+ (WATERS ( I ) +SSWATER ( I ) +TSWATER (I) ) * 

* COND/TWATER { I ) 

CONDR=ZCONDR 

ENDIF 

IF(IWATER(2) .EQ.l) THEN 
DO 23 J=l, IUNIT 

JJ= (NUMBER-IUNIT) +J 

23 IF(JFLOW(I, J) .NE. 0) ZREDH20R=ZREDH20R*EFF ( JJ ) 

IF { ITYPE ( JJ J , 2 ) .EQ.l) REDK20P=ZREDH20R 


ZREDH20R-ZREDH20R4 ( WATERS ( I ) +S8WATER ( I ) +TSWATER ( I ) ) * 

* REDH20/TWATER (I) 

REDH20R=ZREDH20R 

ENDIF 

IF(IWATER(3) .EQ.I) THEN 
DO 24 J=l, IUNIT 

JJ- (NUMBER-IUNIT) +J 

24 IF (JFLOW(I, J) . NE. 0) ZHYGIENR=ZHYGIENR*EFF (JJ) 
IF ( I TYPE ( JJ J , 2 ) .EQ.I) HYGIENP=ZHYGIENR 

ZHYGIENRi:ZHYGIE;W+ (WATERS ( I ) +SSWATER ( I ) +TSWATER ( I) ) * 

* HYGIENLD/TWATER ( I ) 

KYGIENR=ZHYGIENR 

ENDIF 

IF ( IWATER ( 4 ) .EQ.I) THEN 
DO 25 J— 1 , IUNIT 

J J= ( NUMBER- IUNIT ) + J 

25 IF ( JFLOW ( I , J ) .NE.O) ZCLOTHR=ZCLOTHR*EFF (JJ) 

IF ( ITYPE ( JJJ , 2 ) .EQ.I) c:.OTHP=ZCLOTHR 

ZCLOTHR— ZCLQTHR+ ( WATERS ( I ) +SSWATER ( I ) +T8WATER ( I ) ) * 

* CLOTHLD/TWATER ( I ) 

CLOTHR=ZCLOTHR 

ENDIP 

IP(IWATER(5) .EQ.I) THEN 
DO 26 J=l, IUNIT 

JJ= (NUMBER- IUNIT ) +J 

26 IF(JFLOW(I,J) .NE.O) ZURINR=ZURINR*EFF ( JJ ) 

IF (ITYPE ( JJJ, 2 ) .EQ.I) URINP=ZURINR 

ZURINR— ZURINR+ (WATERS ( I ) +8 8 WATER ( I ) +TS WATER ( I ) ) * 

* URINLD/TWATER ( I ) 

URINR= ZURINR 

ENDIF 

IF(IWATER(6) .EQ.I) THEN 
DO 27 J=l, IUNIT 

JJ= (NUMBER- IUNIT ) + J 

27 IF(JFLOW(I,J) .NE.O) ZDI3HWR=ZDISHWR*EFF ( JJ) 

IF ( ITYPE (JJJ , 2 ) .EQ.I) DI8HWP=:ZDISHWR 

ZDISKWR=ZDISHWR+ (WATERS ( I ) +SSWATER ( I ) +TSWATER ( I ) ) * 

* DISHWLD/TWATER ( I ) 

DISKWRsZDISHWR 

ENDIF 

21 CONTINUE 
P.^TREC^O . 

H2OREC=0 . 

DO 7 0 I-- 1, GROUP 

KKK= ( NUMBER- IUNIT ) +1 
IF(ITYPE(KKK,2) .EQ.I) THEN 

POTREC=POTREC+WATER ( I ) +PSWATER ( I ) +SSWATER ( I ) 

ELSE 

HYGREC=HYGREC+WATER ( I ) +PSWATER ( I ) +TSWATER ( I ) 
ENDIF 

70 CONTINUE 

CONDS=:COND-CONDR 

REDH20S=REDH20-REDH20R 

HYGIENS-HYUIKHLD-HYGIENR 

CLOTHS=CLOTHLD-CLOTHR 

IJRINS=URINI.D-URINR 

DISinfS=DISHWLD-DI3HWR 

OTHERLD— EVAH20W 

C'THERR=0. 

OTHERP-O. 



OTHERS=OTHEP.LD 

H20L0aD=CuND+REDH20+HYGIENLD+CL0THLD+URINLD+DISHWLD+0THERLD+FECAL 

H20REC=CONDR+REDH2OR+HYGIENR+CLOTHR+URINR+DISHWR 

H208T0R=H20L0AD-H20REC 

H20NET=H20T0T-H20AR3 

GREYRQ=H20REQ-P0TREQ 

GRE YRC=H2OREC-P0TREC+AMAXl ( 0 . , POTREC-POTREQ > 

MAKEUP=AMAX1 (0 . , POTREQ-POTREC) +AMAX1 (0 . , GREYRQ-GREYRC ) 
EXCESS=AMAX1 (0 . , GREYRC-GREYRQ) 

H20ST0RR=H2OBTOR*R 
MAKEUPR=MAKEUP*R 
EXCESS R=EXCESS*R 
RETURN 
END 
C 

SUBROUTINE SIZE ( ILOC , ISYS , RATIO, FACTO RW , FACTORV, FACTORP) 

REAL N,M 

PARAMETER (NDSGN=5 6 , NSSDAT=3 0 ,NSY0=5 0 ,N8UB8YS=3 5 , NNUM=9 , NWNUM=G ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER (NCOMPAR-20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN ( NDSGN) , SSDATA (NS8DAT, NSYS ) , 

* 8UBSYS ( 0 : NSUBSYfl , NNUM) , N , R ,RE ,M, ITYPE ( NNUM , NITYP) , IWATER (NWNUM) , 

* TOTALS (NSUB8YS, 3) , NUMBER , ARSAUX (NAAUX , 3 ) , WRSAUX ( NWAUX , 0 : 3 ) , 

* ARSAUXQ (30, NAAUX) r WR8AUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILW ( NNCTM, 0 : NWAUX , 0 : 3 ) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PS WATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* 6 ADUMP 

C 

ANUNIT=FLOAT ( ITYPE ( ILOC , 3 ) ) 

AMLTFCW=1.+ (RATIO- 1 .0) *FACTORW 
AMLTFCV=1.+ (RATIO- 1 .0) * FACTORV 
AMLTFCP=1.+ (RATIO-1. 0) *FACTORP 
C AVG POWER, LIGHT (WATTS) 

SUBS YS ( 1 , ILOC ) =SSDATA ( 1,ISYS) * AMLTFCP*ANUNIT 
C CAVG POWER, DARK (WATTS) 

8UBSYS (2 , ILOC) =SSDATA ( 2,ISYS) *AMLTFCP* ANUNIT 
C HEAT REJ( WATTS) 

S UBSYS ( 3 , ILOC ) “3 S DATA ( 3,ISYS) *AMLTFCP* ANUNIT 
C FLIGHT UNIT (LB) 

SUBSYS (4 ,ILOC)=SSDATA( 4 ,ISYS) *AMLTFCW* ANUNIT 
C FLIGHT UNIT ( FT3 ) 

SUBSYS (5, ILOC) =SSDATA( S,ISYS) *AMLTFCV* ANUNIT 
C SPARES (LB) 

SUBSYS (6, ILOC) =SSDATA( 6,ISYS) *AMLTFCW* ANUNIT 
C SPARES (FT 3) 

SUBSYS (7 , ILOC) =SSDATA( 7 ,ISYS) *AMLTFCV* ANUNIT 
C CONS (LB) 

SUBSYS (8, ILOC) =SSDATA( 8,ISY8) *AMLTFCW* ANUNIT 
C CONS { FT3 ) 

SUBSYS ( 9 , ILOC) “SSDATA ( 9 , IS YS ) * AMLTFCV* ANUNIT 
C RELIABILITY ( 1-8 ) 

SUBSYS (10 , ILOC) =SSDATA(10 ,ISYS) 

C TECH READ (1-8) 

SUBSYS (11, ILOC) =SSDATA( 11, ISYS) 

C PAC TECH PROB(l-8) 

SUBSYS (12, ILOC) -SSDATA (12, ISYS) 

C SAFETY (1-8) 

SUBSYS (13 , ILOC) =SSDATA( 13, ISYS) 


C KAlNTATN*5LTY(l-8> 

SUBS YS ( 14 , ILOC) =Sb'DATA ( 14 , ISYS ) 

G COMMONALITY (1-8) 

SUBSYS (15 , ILOC) =SSDATA ( 15 , ISYS) 

C MAINTENANCE (HR) 

SUBSYS (16, ILOC) =8SDATA(1«, ISYS) * AMLTFCW* ANUNIT 
RETURN 
END 
C 

SUBROUTINE SBR02GEN ( PP02 , PTOT, 02 MET, 02 EVA, 02 LEAK , 02 AIR, 02RPRS , 

* 02 COM, 02 EDC, 02T0T, C02MET) 

REAL N,M 

PARAMETER (ND8GN=56 , NSSDAT=3 0 , NS YS=50 ,NSUBS YS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWACX=16 , NITYP=4 ) 

PARAMETER (NC0MPAR=2 0 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT, NSYS ) , 

* SUBSYS ( 0 : NSUBSYS , NNUM) ,N,R,RE,M,ITYPE (NNUM,NITYP) , IWATER (NWNUM) 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* AR8AUXQ( 30, NAAUX) , WRSAUXQ (NWNUM, 0 : NWAUX) , 

» AUXILA ( NNUM , NAAUX , 0 I 3 ) , AUXILW (NNUM, 0 : NWAUX, 0 : 3 ) , 

* GROUP, IUNIT,JFLOW{ NAAUX, NCOMPAR) , KFLOW (NCOMPAR,NCOMPAR) , 

* SWATER ( NAAUX , NAAUX ) , PS WATER (NAAUX) , LFLOW (NCOMPAR , NCOMPAR) 
CHARACTER* 6 ADUMP 

C 

02MET=DESIGN ( 8 ) *N 
0?.EVA=DESIGN(11) *RE/R 
02 LEAK— (PP02/PT0T) *DE8IGN(6) 

02AIR=(PP02/PTOT) *DESIGN (7 ) 

02RPRS=0. 

O2COM=0. 

CALL EDC02 (C02MET,02EDC) 

02 T0T=02 MET+02 E VA+02 LEAK+02 AIR+02 RPRS-f 02 COM+02 EDC 

RETURN 

END 

C 

SUBROUTINE SFWES ( ILOC , E ,02 GEN) 

REAL N, M 

PARAMETER (NDSGN=56 , NSSDAT=30 , NSYS=50 ,NSUBSYS=35 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT ,NSYS) , 

* SUBSYS ( 0 i NSUBSYS , NNUM) , N, R, RE ,M, ITYPE (NNUM, NITYP) , IWATER (NWNUM) 

* TOTALS (NSUBSYS, 3 ) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ (30 , NAAUX) , WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA ( NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 :NWAUX,0 :3) , 

* GROUP, I UNIT, JFLOW( NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* 6 ADUMP 

C 

ISYS=2J. 

O 2 REF=E S DATA ( 18 , ISYS) 

RATIO= (02GEN/02REF) /ITYPE (ILOC, 3) 

FACTORWsSSDATA { 2 7 , IS YS ) 

FACTORVsSSDATA { 2 8 , IS YS ) 

FACTORP=SSDATA (29, ISYS ) 

CALL S IZE ( ILOC , IS YS , RATIO , FACTORW , FACTO RV , FACTORP ) 

EsSSDATA (30 , ISYS) 

RETURN 



SUBROUTINE PPOLLF ( ILOC, E , 02GEN) 

REAL N/M 

PARAMETER (NDSGN-5 6 , NSSDAT=3 0 , N8YS=50 , NSUBS YS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 ,NWAUX=16 ,NITYP=4) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (ND8GN) , S.SDATA (N8SDAT, NSYS) , 

* 8UBSYS (0 1 NSUBS YS,NNUM) ,N , R, RE ,M , ITYPE (NNUM,NITYP) , I WATER ( NWNUM ) , 

* TOTALS ( NSUBS Y3 , 3 ) , NUMBER , ARSAUX ( NAAUX , 3 ) ,WR8AUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ (30 , NAAUX) , WRSAUXQ (NWNUM, 0 2 NWAUX) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILH (NNUM, 0 I NWAUX, 0 : 3 ) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAR) , KFLOW( NCOMPAR, NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PS WATER (NAAUX) , LFLOW ( NCOMPAR , NCOMPAR ) 
CHARACTER* 6 ADUMP 

ISYS~22 

02REF=SSDATA(18,ISY8) 

RATIO= (02GEN/02REF) /ITYPE ( ILOC, 3 ) 

FACTORW=S8DATA(27 ,I8YS) 

FACTORV=SSDATA ( 2 8 , IS YS ) 

FACTO RP«flS DATA ( 2 9 , IS YS ) 

CALL SIZE (ILOC, IS YS , RATIO, FACTO RW, FACTO RV, FACTOR?) 

E=SSDATA (30, IS YS ) 

RETURN 

END 

SUBROUTINE SPOLSF ( ILOC, E ,02GEN) 

REAL N,M 

PARAMETER ( NDSGN=5 6 , NSSDAT=3 0 , NS YS=50 , NSUBS YS=3 5 , NNUM =9 , NWNUMs 6 ) 
PARAMETER <NAAUX=10 , NWAUX=16 ,NITYP=4 ) 

PARAMETER (NCOMPAR=2 0 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT, NSYS ) , 

* SUBSY8 ( 0 tNSUBSYS , NNUM) ,N , R ,RE ,M, ITYPE (NNUM ,NITYP) , IWATER (NWNUM) , 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ (30, NAAUX ) , WRSAUXQ ( NWNUM , 0 : NWAUX ) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 : NWAUX, 0:3) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAP.) ,KFLOW( NCOMPAR, NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PS WATER (NAAUX) , LFLOW (NCOMPAR , NCOMPAR) 
CHARACTER*6 ADUMP 

ISYSs23 

02REF=SSDATA (18 ,ISYS) 

RATIO=(02GEN/02REF) /ITYPE (ILOC, 3) 

FACTORWsSSDATA ( 2 7 , IS YS ) 

FACTO RVsSSDATA ( 2 8 , IS YS ) 

F ACTORPsS S DATA (29,ISYS) 

CALL SIZE (ILOC , IS YS , RATIO , FACTO RW , FACTORV, FACTORP ) 

E= SSDATA (30, ISYS) 

RETURN 

END 

SUBROUTINE 02STOR ( ILOC, E,02GEN) 

REAL N,M 

PARAMETER (NDSGN=5 6 , NSSDAT=30 , NSYS=50 , NSUBSYS=35 , HNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=I0 ,NWAUX=I6 ,NITYP=4 ) 

PARAMETER (NCOMPAR=2 0 ) 

COMMON /CHAR/ ADUMP 



COMMON /GENRL/ DESIGN (NOBGN) , SSDATA (NSSDAT, NSYS ) , 

* SUB SYS ( U J NS OB SYS , NNUM) , N, R, RE ,M, ITYPE (NNUM, NITYP) , IWATER ( NWNUM) 

* TOTALS (NSUBSYS, 3) , NUMBER , ARSXCJX (NAAUX, 3 ) , WRSAUX (NWAUX, 0*3) , 

* ARSAUXQ (30 , NAAUX) , WR3AUXQ (NWNUM, 0 : NWAUX) , 

* A 3X1 LA ( NNUM , N AAOX , 0 i 3 ) , AUXILW (NNUM, 0 t NWAUX, 0 l 3 ) , 

* GROUP, IUNIT, JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER( NAAUX, NAAUX) , PtiWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* 6 ADUMP 

ISYS=2 4 

02REF=SSDATA(18 , ISY3) 

RATIO= (02 GEN/02 REF) /ITYPE (ILOC, 3 ) 

FACTORW=SSDATA (27 , ISYS ) 

FACTORV=SSDATA (28, ISYS ) 

FACTORP=S8DATA (29, ISYS ) 

CALL SIZE ( ILOC, ISYS , RATIO, FACTORW, FACTORV, FACTORP) 

Es-1.0 

RETURN 

END 

SUBROUTINE EDC (ILOC , C02MET , 02EDC , H2EDC , H20REM) 

REAL N,M 

PARAMETER (NDSGN=5 6 , NS SDAT=3 0 , NS YS=5 0 , NSUBS YS=3 5 , NNUM=9 , NWNUM= 6 ) 
PARAMETER (NAAUX=10 ,NWAUX=16 ,NITYP=4 ) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT, NSYS) , 

* SUBS YU ( 0 : NSUBSYS , NNUM) , N, R, RE ,M, ITYPE (NNUM, NITYP) , IWATER (NWNUM) 

* TOTALS (NSUBSYS, 3) , NUMBER, ARBAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ< 30, NAAUX) , WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXI LA ( NNUM , NAAUX ,0*3) , AUXILW (NNUM, 0 : NWAUX, 0 : 3 ) , 

* GROUP, IUNIT, JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* 6 ADUMP 

ISY8=1 

C02REF=SSDATA ( 19 , ISYS ) 

RATIOS (CO2MET/C02REF) /ITYPE (ILOC , 3 ) 

FACTORWsSSDATA ( 2 7 , I S YS ) 

FACTORVsSSDATA (28 , ISYS) 

FACTO RP=S S DATA ( 2 9 , IS YS ) 

CALL SIZE (ILOC, ISYS, RATIO, FACTORW, FACTORV, FACTORP) 

H2EDC= ( SSDATA (21,ISYS)/R) *RATIO 
IF (H2EDC.EQ.0. ) H2EDC=C02MET* (2 ./<* . ) 

K20REM= ( SSDATA (23, ISYS ) /R) *RATIO 
IF (H20REM. EQ. 0 . ) H20REM=C02MET* ( 18 - /44 . ) 

RETURN 

ENTRY EDC02 (C02MET, 02EDC) 

ISYS=1 

DO 10 I— 1, NUMBER 

10 IF (ITYPE(I,1) .EQ.ISY8) GOTO 20 
02EDC— 0 . 

GOTO 99 

20 C02REF=SSDATA(19,ISYS) 

02EDC- (SSDATA (22, ISYS) /R> *CC2MET/C02REF 
IF (02EDC.EQ.OO 02EDC=C02MET* (32 , / ( 44 . *2 . ) ) 

99 RETURN 
END 

SUBROUTINE 8AWD ( ILOC, C02 MET, H20REM,H20REMRQ) 



REAL N,M 

PARAMETER (NDSGN=5 6 , NB£DAT=:30 , NSYS=50 , N8UBSYS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=I6 , NITYP=*4 ) 

PARAMETER (NCOMPAR^ZO) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , 8SDATA { NSSDAT , NSYS ) , 

* SUBS YS { 0 I NSUBSYS , NNUM) , N, R, RE , M, ITYPE (NNUM , NITYP) , IWATER (NWNUM) , 

* TOTALS (NSUBSY8, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ( 30, NAAUX) ,WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 : NWAUX , 0 : 3 ) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR , NCOMPAR) , 

* S WATER (NAAUX, NAAUX) , PS WATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER*® ADUMP 

I8YS=2 

C02REF=SSDATA(19, ISYS) 

RATION (C02MET/C02REF) /ITYPE ( ILOC , 3 ) 

FACTORW=SSDATA (27 ,ISYS) 

FACTORV=S8DATA (28 , ISYS) 

FACTORP=SSLsATA (29, ISYS ) 

CALL SIZE (ILOC, ISYS , RATIO , FACTORW, FACTORV, FACTOR?) 

H20REM= ( SSDATA (2 3 , ISYS ) /R) * RATIO 

H20REMRQ=H20REM 

RETURN 

END 

SUBROUTINE HMOLSV (ILOC , C02MET , H20REM) 

REAL W,M 

PARAMETER ( NDSGNs5 6 , NSSDAT=3 0 , NS YSs5 0 , NSUBS YS=3 5 , NNUM=9 , NWNUM= 6 ) 
PARAMETER (NAAUX=10 , NWAUX-16 , NITYP=4 ) 

PARAMETER <NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT , NSYS ) , 

* SUBSY3(0: NSUBSYS, NNUM) ,N, R, RE , M, ITYPE ( NNUM, NITYP) , IWATER (NWNUM) , 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ( 30, NAAUX) ,WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 : NWAUX, 0 : 3 ) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER*® ADUMP 

ISYS.-3 

C02REF=SSDATA ( 19 , ISYS ) 

RATIO— (C02MET/C02REF) /ITYPE (ILOC, 3) 

FACTORW— SSDATA (27 , ISYS) 

FACTO RV=SSDATA ( 2 8 , ISYS ) 

FACTO RP=SSDATA (29 , ISYS) 

CALL SIZE ( ILOC , ISYS , RATIO, FACTORW, FACTORV, FACTORF) 

H20REM= ( SSDATA (23, ISYS ) /R) *RATIO 

RETURN 

END 

SUBROUTINE LIOH ( ILOC , C02MET , H20REM ) 

REAL N,M 

PARAMETER (NDSGN=S6 , NS8DAT=30 , NSYS=50 , NSUBSYG=35 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER <NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT, NSYS) , 

* SUBSYS(0: NSUBSYS, NNUM) ,N,R, RE, M, ITYPE (NNUM, NITYP) , IWATER (NWNUM) , 



* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 ; 3 ) , 

* ARSAUXQ (30/ NAAUX) , WRSAUXQ {NWNUM, 0 : NWAUX) , 

* A U XI LA (NNUM, NAAUX, 0 : 3) , 7lUXILW ( NNUM , 0 : NWAUX ( 0:3) , 

* GROUP, IUNIT, JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* S WATER (NAAuX, NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER*6 ADUMP 

ISYS=4 

C02 REF = SSDATA ( 19 , ISYS ) 

RATIO= (C02MET/C02REF) /ITYPE ( ILOC, 3 ) 

FACTO RW=S8DATA ( 27 , IS YS ) 

FACTORV— SSDATA ( 28 , IS YS ) 

FACTORP=SSDATA ( 2 9 , IS YS ) 

CALL SIZE (ILOC , ISYS , RATIO , FACTORW, FACTORV, FACTORP) 

H20REM=(S8DATA(23,ISYS)/R) * RATIO 

RETURN 

END 

SUBROUTINE FBDMSV (ILOC , C02MET, H20REM) 

REAL N,K 

PARAMETER (NDSGN=5 6 , NSSDAT=3 0 , N8YS=50 ,NSUBSYS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=I6 , NITYP=4 ) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , BSDATA (NSSDAT, NSYS ) , 

* SUBSYS ( 0 : NSUBS YS , NNUM) , N, R, RE, M, ITYPE (NNUM, NITYP) , IWATER (NWNUM) , 

* TOTALS (NSTJBSYS , 3 ) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ (30, NAAUX ) , WRSAUXQ ( NWNUM , 0 : NWAUX ) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 : NWAUX, 0 s 3 ) , 

* GROUP, IUNIT, JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER( NAAUX. NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTERS 6 ADUMP 


ISYS=S 

CO 2 RE F= US DATA ( 19 , ISYS) 

RATIO= (C02MET/C02REF) /ITYPE ( ILOC , 3 ) 

F ACTORW=SSDATA ( 2 7 , I S YS ) 

FACTORV— SSDATA ( 2 8 , IS YS ) 

FACTORP=SSDATA ( 29 , IS YS ) 

CALL SIZE (ILOC, ISYS, RATIO, FACTORW, FACTORV, FACTORP) 

K20REM=: ( SSDATA ( 23 , ISYS) /R) * RATIO 

RETURN 

END 

SUBROUTINE SKLMSV ( ILOC, C02MST,H20REM) 

REAL N,M 

PARAMETER ( NDSGN=5 6 , N3SDAT=3 0 , NSYS=5 0 , NSUBSYS=3 5 , NNUM=9 , NWNUM= 6 ) 
PARAMETER ( NAAUX=10 , NWAUX=1 6 , NITYP=4 ) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT , NSYS ) , 

* SUBSYS (0 : NSUBS YS,NNUM) , N, P., RE , M, ITYPE (NNUM, NITY P) , IWAT2R ( NWNUM) , 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ (30, NAAUX ) , WRSAUXQ ( NWNUM , 0 : NWAUX ) , 

* AUXILA (NNUM, NAAUX, 0 : 3) , AUXILW (NNUM, 0 : NWAUX , 0 : 3 ) , 

* GROUP, IUNIT, JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* 6 ADUMP 


C02REF=S3DATA ( 19 , ISYS ) 

RAT10= (C02MET/C02 REF) /ITYPE (ILOC, 3) 

FACTORW=S8DATA(27 , ISYS) 

FACTORV=S8DATA(28 , ISYS) 

FACTORP=SSDATA ( 2 9 , IS YS ) 

CALL SIZE (ILOC, ISYS , RATIO , FACTORW, FACTOR V, FACTOR P ) 

H20REM= (SSDATA (23, ISYS) /R) * RATIO 

RETURN 

END 

SUBROUTINE BOSCH (ILOC, C02T0T , H2 AVAL , H20RED , C02RED , C , K2BSCH ) 

REAL N, M 

PARAMETER (NDSGN=5 6 , NSSDAT=3 0 , N8YS=50 , NHUBSY8=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER ( NCOMPAR=2 0 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (N8SDAT , N8YS ) , 

* 8UBSYS ( 0 : NSUBSYS , NNUM) , N, R , RE , M , ITYPE (NNUM, NITYP) , IWATER ( NWNUM) 

* TOTALS (NSUBSYS ,3) , NUMBER, ARSAUX ( NAAUX , 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 
ft ARS AUXQ ( 30, NAAUX ) , WRSAUXQ ( NWNUM, 0: NWAUX ) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 : NWAUX, 0 : 3 ) , 

* GROUP, IUNIT, JFLOW ( NAAUX, NCOMPAR) , K7L0W (NCOMPAR, NCOMPAR) , 

* 8WATER (NAAUX, NAAUX } , PS WATER (NAAUX) , LFLOW (NCOMPAR , NCOMPAR) 
CHARACTER*6 ADUMP 

I8YS=11 

C02REF=SSDATA (19 , ISYS ) 

H2REQ= (SSDATA (2 1 , ISYS ) /R) *CO2T0T/CO2REF 
IF (H2REQ.EQ ,0 , ) H2RUQ=C02TOT* ( 2 . *2 . / 4 4 . ) 

IF (H2REQ.LE.H2AVAL) H2BSCH=H2REQ 
IF (H2REQ . GT . H2 AVAL) H2B8CH=H2 AVAL 
C02RED=CO2TOTftH2BSCK/H2REQ 
HATIO= ( C02 RED/ C02 REF) /ITYPE (ILOC, 3) 

FACTORW=SSDATA(27,ISYS) 

FACTORV=SSDATA (26 , ISYS) 

FACTO RP=G S DATA (29, ISYS ) 

CALL SIZE (ILOC, ISYS, RATIO, FACTORW , FACTORV , FACTOR?) 
K'i0PED=SSDATA(23 , ISYS) /RftRATIO 
IF (H20RED.EQ. 0 . ) H20RED=C02 RED* (2 . *10 . /< 4 . ) 

C.“SSP7iTA(24 . ISYS) /R*RATIO 
IF (C.ftQ.O.) C-C02RED* (12 ./ 44 . ) 

RETURN 

END 

SUBROUTINE SABAT ( ILOC, C02T0T , H2 AVAL , H20RED, C02RED, CH4 , H2 SAB ) 

REAL N,M 

PARAMETER (NDSGN=56 , NSSDAT=3 0 , NSYS-5 0 , NSUBSYS--3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER (NCOMPAR=2 0 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN ( NDSGN) , SSDATA (HSSDAT, NS YS ) , 

* SUB3YS (0 : NSUBSYS, NNUM) , N, R, RE ,M, ITYPE (NNUM, NITYP) , IWATER (NWNUM ) 

* TOTALS (NSUBSYS, 3) , NUMBER , ARS AUX ( NAAUX , 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARS AUXQ (30, NAAUX) , WRSAUXQ (NWNUM, 0 : NWAUX) , 

ft AUXILA (NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 : NWAUX, 0:3) , 

* LROUP, IUNIT, JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* S ADUMP 



CO 2 RE F= 8 S DATA ( 19 , ISYS ) 

CO 2 RFN=86DATA (26, ISYB ) /R 
C02RFR— C02REF-C02RFN 

H2REQ=(8SDATA(21,ISYS)/R) *C02T0T/C02 RFR 
IF (H2REQ. EQ. 0 . ) H?.REQ=C02T0T* ( 4 . *2 . /4 4 . ) 

IF (H2REQ . LE . H2 AVAL) H28AB=K2 REQ 
IF (H2REQ . OT. H2AVAL) H2 SAB=H2 AVAL 
CO2RED=C02T0T*H2SAB/H2REQ 
RATIO= (C02RED/C02RFR) /ITYPE (ILOC, 3 ) 

FACTORW=SSDATA(27 , ISYS) 

FACTORV=aSDATA(28, ISYS) 

FACTORP=8SDATA (29, ISYS ) 

CALL SIZE (ILOC, ISYS , RATIO, FACTORW, FACTORV, FACTORP) 

H20RED=flSDATA (23, ISYS) /R* RATIO 

IF (1I20RED. EQ . 0 . ) H20RED=C02RED* (2 . *18 ./44 . ) 

CH4— 3SDATA (25, ISYS) /R* RATIO 
IF (CH4.EQ.0.) CH4=C02RED* ( 16 ,/44 . ) 

RETURN 

END 

SUBROUTINE SABCH4 (ILOC, C02TOT, H2 AVAL , H20RED , C02RED , C, H2 SAB) 

REAL N,M 

PARAMETER (NDSGN=:5 6 , NS8DAT=3 0 , NSYS=5 0 , NSUBS YS=3 S , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER (NCOMPARs?. 0 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT , NSYS ) , 

* SUBSYS ( 0 : NSUBSYS ,NNUM) , N, R, RE , M , ITYPE ( NNUM, NITYP) , IWATER (NWNUM) , 

* TOTALS (NSUBSYS, 3) , NUMBER , ARSAUX (NAAUX , 3 ) , WRSAUX ( NWAUX , 0 : 3 ) , 

* ARSAUXQ (30 ,NAAUX) , WRSAUXQ (NWNUM , 0 : NWAUX) , 

* AUXILA ( NNUM, NAAUX ,0:3) , AUXILW (NNUM , 0 : NWAUX, 0 : 3 ) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAR) , KFLOW ( NCOMPAR , NCOMPAR) , 

-v SWATER (NAAUX, NAAUX) , PSWATER ( NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 

CHARACTER* 6 ADUMP 

ISYS=13 

C02REF=SSDATA ( 19 , ISYS ) 

RETURN 

END 

SUBROUTINE VCD ( ILOC , WATR , E ) 

REAL N, M 

PARAMETER ( NDS JN=5 6 , NSSDAT=3 0 , NSYS=50 , NSUBSYS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=1 0 , NWAUX=16 , NITYP=4 ) 

PARAMETER (NCOMPAR-20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT , NSYS ) , 

* SUBSYS (0:NSUBSYS,NNUM) , N , R , RE ,M, ITYPE (NNUM, NITYP) , IWATER (NWNUM) , 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ ( 3 0, NAAUX) , WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 5 NWAUX, 0 : 3) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR , NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW ( NCOMPAR, NCOMPAR) 
CHARACTER* 6 ADUMP 

ISYS=31 

H20REF=SSDATA (20, ISYS ) 

RATIO= (WATR/H20REF) /ITYPE ( ILOC, 3 ) 

FACTORW=SSDATA (27 , ISYS) 

FACTORV=RSDATA ( 28 , ISYS ) 


i 



FACTOR?=3BOA'”A(?9 1 IfiYfl) 

CALL SIZE (ILOC , ISYB , RATIO , FAOTORW , FACTORV, FACTORP) 

E=S3DATA (30 ,18*8) 

RETURN 

END 

SUBROUTINE TIMES ( ILOC , WATR , E ) 

REAL N,M 

PARAMETER (NDSGN=5 6 , NSSDAT=3 0 , N8YS = 5 0 , NSUBSYG=35 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN ( NDSGN) , OSDATA (NSSDAT , NSYS ) , 

* SUBSYS (0 :NBUBSYS,NNUM) , N, R, RE , M, ITYPE (NNUM, NITYP) , I WATER ( NWNUM) 

* TOTALS (N8UBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX , 0 : 3 ) , 

* AROAUXQ (30 , NAAUX) , WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 : NWAUX , 0 : 3 ) , 

* GROUP , IUNIT , JFLOW ( NAAUX , NCOMPAR) , KFLOW(NCOMPAR, NCOMPAR) , 

* S WATER (NAAUX, NAAUX) , PSWATER ( NAAUX) , LFLOW (NCOMPAR, NCOMPAR) ‘ 
CHARACTER* 6 ADUMP 

ISYS=32 

H2 0REF=8SDATA (20, ISY8 ) 

RATIO= (WATR/H20REF) /ITYPE (ILOC, 3 ) 

FACTORW=S8DATA (27 , ISYS) 

FACTORV=SSDATA ( 2 8 , IS YS ) 

FACTORP=SSDATA (29, ISYS ) 

CALL SIZE (ILOC , ISYS , RATIO , FACTORW , FACTORV, FACTORP) 

E=SSDATA (30, ISYS) 

RETURN 

END 


SUBROUTINE AIREVP ( ILOC , WATR, E ) 

REAL N,M 

PARAMETER (NDSGN=5 1>, NSSDAT— 30 , NSYS— 50 , NSUBSYS=3 5, NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=1 6 , NITYP=4 ) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT, NSYS ) , 

* SUBSYS (OlNSUBSYS, NNUM) , N , R, RE , M, ITYPE (NNUM, NITYP) , IWATER ( NWNUM ) 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX ( NAAUX, 3 ) , WRSAUX (NWAUX, 0:3) , 

* ARSAUXQ (30, NAAUX ) , WRSAUXQ ( NWNUM , 0 : NWAUX ) , 

* AUXILA ( NNUM , NAAUX , 0 S 3 ) , AUXILW (NNUM , 0 : NWAUX, 0 : 3 ) , 

* GROUP, IUNIT, JFL ft (NAAUX , NCOMPAR) , KFLOW (NCOMPAR , NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* 6 ADUMP 

ISYS=33 

H20REF=SSDATA ( 2 0 , IS YS ) 

RATION (WATR/H20REF) /ITYPE ( ILOC, 3 ) 

FACTORW=SSDATA(27 , ISYS) 

FACTORV=SSDATA(2S, ISYS) 

FACTORP=SSDATA ( 2 9 , IS YS ) 

CALL SIZE (ILOC , ISYS , RATIO , FACTORW, FACTORV, FACTORP) 
E=SSDATA(30,ISYS) 

RETURN 

END 

SUBROUTINE VPCAR ( ILOC , WATR , E ) 

REAL N,M 


PARAMETER (NDB0N=S6 , NSSDAT='J 0 , NSYS=50 ,N8UBSYS=3 S , NNUM=9 , NWNUM“6 ) 
PARAMETER (NAAUX=10 ,NWAUX=16 , NITYP=4 ) 

PARAMETER <NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , 8SDATA ( NSSDAT , NSYO ) , 

* SUBSYS (0 j NSUBSYS, NNUM) , N , R , RE , M , ITYPE ( NNUM, NITYP) , I WATER ( NWNUM) 

* TOTALS (NSUBSYS , 3 ) /NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX , 0 : 3 ) , 

* ARSAUXQ (30, NAAUX ) , WRS AUXQ ( NWNUM , 0 : NWAUX ) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILW (NNUM , 0 : NWAUX , 0 : 3 ) , 

* GROUP, IUNIT, JFLOW ( NAAUX , NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATEP. (NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* 6 ADUMP 

I0YS=34 

H20REF=SSDATA ( 20 , IS YS ) 

RATIOS (WATR/H20REF) /ITYPE (ILOC, 3 ) 

FACTORW=88DATA (27 , ISYS) 

FACTORVsSHDAl.’A ( 2 0 , IS YS ) 

FACTORP=SSDATA{29 , ISYS) 

CALL SIZE (ILOC, ISYS , RATIO , FACTORW, FACTORV, FACTORP) 
E=SSDATA(30,ISYS) 

RETURN 

END 

SUBROUTINE MF { ILOC, WATR , E) 

REAL N,M 

PARAMETER (NDSGN=56 , N8BDAT-30 , NSYS=50 , NSUU S YS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=I6 ,NITYP=4 ) 

PARAMETER (NC0MPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN ( NDSGN) , SSDATA (NSSDAT , NSYS ) , 

* SUBSYS (0 ! NSUBSYS, NNUM) , N, R, RE ,M, ITYPE (NNUM, NITYP) , IWATER ( NWNUM) 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX ( NWAUX , 0 : 3 ) , 

* ARSAUXQ (30, NAAUX ) , WRS AUXQ ( NWNUM , 0 : NWAUX ) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 : NWAUX, 0 : J ) , 

* GROUP, IUNIT, JFLOW(NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER( NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* G ADUMP 

ISYS=4 1 

H20REF=SSDATA (20 , ISYS) 

RATIO= (WATR/H20REF) /ITYPE (ILOC, 3) 

FACTORW=SSDATA ( 27 , ISYS ) 

FACTORV=SSDATA ( 28 , ISYS ) 

FACTORPsSSDATA (29, ISYS ) 

CALL SIZE (ILOC , ISYS , RATIO , FACTORW , FACTORV , FACTORP ) 

EsSSP'.TA (30, ISYS) 

PETURN 

END 

SUBROUTINE HF (ILOC, WATR, E) 

REAL N,M 

PARAMETER ( NDSGNs 5 6 , NS SDATs3 0 , NS YS=5 0 , NSUBS YS=3 5 , KMUMsg , NWNUM= 6 ) 
PARAMETER (NAAUXslO , NWAUX=16 , NITYP=4 ) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT , NSYS ) , 

* SUBSYS (0:NSUBSYS,NNUM) , N, R, RE , M, ITYPE (NNUM, NITYP) , IWATER (NWNUM) 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ (30, NAAUX ) , WRS AUXQ ( NWNUM , 0 : NWAUX ) , 


* AUXILA (NNUM, NAAUX ,'0 ! 3 ) , AUXILW { NKUM, 0 : NWAUX , 0 I 3 ) , 

* GROUP, IUNIT, JFLOW ( NAAUX, NCOMPAR) , KFLOW ( NCOMPAR , NCOMPAR ) , 

* 8WATER tHAAUX , NAAUX) , P8 WATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER * 6 ADUMP 

ISY8=42 

H2OREF=88DATA(20 , ISYS) 

RATIO— ( WATR/H20REF) /ITYPE ( ILOC , 3 ) 

FACTORW=S8DATA<27 , ISYS) 

FACTORV— 8Sf)ATA (28 , ISYS) 

FACTORP— S8DATA ( 29 , ISYS) 

CALL SIZE (ILOC, ISYS, RATIO, FACTORW, FACTORV, FACTORP) 

E=SSDATA(30,ISYS) 

RETURN 

END 

SUBROUTINE RO ( ILOC , WATR, E ) 

REAL N,M 

PARAMETER (NDSGN=56 , NS8DAT=30 , N8YB=50 „ NBUBS YS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=1* , NITYP=4 ) 

FARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON ,/QENRL/ DESIGN (NDSQN) , SSDATA (NS8DAT, NSY8) , 

* SUBS YS ( 0 I WSUBSYS , NNUM) ,N, R, RE, M, ITYPE (NNUM, NITYP) , IWATER (NWNUM) , 

* TOTALS (NBUB8YS, 3 ) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 } , 

* ARSAUXQ (30, NAAUX) , WRS A UXQ (NWNUM, 0 : NWAUX) , 

* AUXILA ( NNUM , NAAUX ,0:3) , AUXILW (NNUM, 0 : NWAUX, 0 ! 3 ) , 

* GROUP, IUNIT, JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* 6 ADUMP 

ISYS=43 

H20REF— SSDATA (20 , ISYS) 

RAT 10= (WATR/H20REF) /ITYPE (ILOC,, 3 ) 

FACTORW=88DATA ( 27 , ISYS ) 

FACTORV=S3DATA(28, ISYS) 

FACTORP=8SDATA (29, ISYS ) 

CALL SIZE ( ILOC, ISYS , RATIO , FACTORW, FACTORV, FACTORP) 

E=SSDATA (30, ISYS) 

RETURN 

END 

SUBROUTINE SRBSUB (NWRITE) 

REAL N, M 

PARAMETER (NDSGN-56 , NSSDAT=3 0 , NSYS=S0 , NSUB8YS = 3 5 , NWUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER (NCDMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT,NSYS) , 

* SUBSYS ( 0 : NSUBSYS , NNUM) , II, R, RE r M, ITYPE (NNUM, NITYP) , IWATER (NWNUM) , 

* TOTALS (NSUBSYS, 3) , NUMBER, ARS ADZ (NAAUX, 3 ) , WRSAUX { NWAUX , 0 : 3 ) , 

* ARSAUXQ (30, NAAUX) , WRS AUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 : NWAUX, 0 i 3 ) , 

* GROUP, IUNIT, JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, N'^MPAR) , 

* SWATER (NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 

COMMON /SSLOAD/ WATER (NWAUX) , E (NWAUX , NWAUX) , AIJXEQ ( IB , 0 : 7 , 3 ) , STOREW , 

* CLOTHW, 

* CLOTHV, DISHWGHT , DISHV , TRASHW , TRASHV , AUXMAT ( 3 ) , 

* EFF (NWAUX) 

COMMON /FILE/ FNAME(NSYS) 


CHARACTER*].? FNAME , FILNAM (NNUM) 

CHARACTER* 6 ADUMP 
CHARACTER* 2 6 ALABEL ( 3 0 ) 

DATA ALABEL/ • FLIGHT UNITS',* FIEDUNDANT UNITS', 

* • AUXILIARY EQUIPMENT', 

* • SPARES*,* CONSUMABLES',* WATER ( INITIAL STARTUP) ' , 

C ALABEL (7) NOT USED 

* ' ',' INITIAL LAUNCH WEIGHT', 

* » RESUPPLY WEIGHT',' EQUIVALENT WEIGHT',' LIFETIME WEIGHT', 

* • FLIGHT UNITS-POWER' , ' FLIGHT UNIT8-HEAT RE J . ' , 

* * AUXILIARY EQUIPMENT* ,' MAINTENANCE TIME ( HR) ' , 

* • ON ORBIT VOLUME', 

* * RESUPPLY VOLUME*,' LIFETIME VOLUME',' RELIABILITY*, 

* • TECHNOLOGY READINESS',’ PACING TECHNOLOGY PROB', 

* ' SAFETY', • MAINTAINABILITY',' COMMONALITY' , • OVERALL', 

* * MATERIAL LOST fc STORED’,' STORAOE-LOST MATERIAL', 

* ' TOTAL POWER REQUIRED', 

C ALABEL ( 28 ) NOT USED 

* • MAKEUP WATER'/ 

DO 5 1=1, NUMBER 
ISYS=ITYPE (I, 1) 

DO 6 K=12 ,1,-1 

6 IF (FNAME (ISYS) (K: K) .NE. • •) GOTO 7 

7 K2=K 

DO 8 Kl=12,13-K,-1 

FILNAM ( I ) (Kl: Ki)=FNAME (ISYS) (K2:K2) 

8 K2=K2-1 

DO 9 Kl=l , 12-K 

9 FILNAM (I) ( Kl : Kl ) = ' • 

5 CONTINUE 

NREAD=5 

N1=IFIX(N) 

NR=IFIX(R) 

DO 10 1=1, NUMBER 
10 IF (ITYPE(I, 1) .OE. 31) GOTO 20 
20 IARS=I-1 
IWRS=I 

IF (IARS.EQ.O) GOTO 100 
IF (IARS.EQ. NUMBER) GOTO 75 
IFORM=2 

WRITE (NWRITE, 3 ) 

3 FORMAT ( 4 (/ ) ) 

WRITE (NWRITE, 30) N1 , NR, M 

30 FORMAT (T7 , 'OVERALL SUMMARY: ',12,' CREW PERSONS, ',13,' DAY 

* 'RESUPPLY, * , F4 . 1 , * YEAR LIFETIME') 

WRITE (NWRITE, 31) 

31 FORMAT (T5, ’ ITEM* ,T36, ' ARS « ,T51, ' WRS ' ,T61, 'TOTALS' ) 

WRITE (NWRITE, 32) 

32 FORMAT (IX, 'WEIGHTS (LB) ' ) 

WRITE (NWRITE, 50) ALABEL ( l),(TOTALH( 4, I), 1=1, 3) 

50 FORMAT (T2 , A2 6 , T2 5 , <IFORM> ( 5X , F10 . 2 ) ,2X,F10.2) 

WRITE (NWRITE, 50) ALABEL ( 2 ) , (TOTALS ( 2 « , I ) , 1=1 , 3 ) 

WRITE (NWRITE, 50) ALABEL ( 3 ) , (TOTALS ( 18 , I ) , 1=1 , 3 ) 

WRITE (NWRITE, 5U) ALABEL (26) , (TOTALS ( 2 1 , I ) ,1=1,3) 

WRITE (NWRITE, 50) ALABEL ( 27 ) , (TOTALS(22, I) ,1=1,3) 

WRITE (NWRITE, 50) ALABEL ( 4),(TOTALS( 6, I), 1=1, 3) 

WRITE (NWRITE, 50) ALABEL ( 5), (TOTALS ( 8, I), 1=1, 3) 

WRITE (NWPITE, 55) ALABEL (30) , AUXSQ < 11 , 0 , 1 ) , AUXEQ (11,0,1) 

55 FORMAT (T2 , A2 6 , T2S , 2 OX, F10 . 2 , 2X , F10 . 2 ) 

WRITE (NWRITE, 50) ALABEL ( 6 ) , (TOTALS ( 2 6 , I ) , 1=1 , 3 ) 



WRITS uWRITE, 50) ALABEL ( 8 ) , ( TOTALS (28 • 1} , 1=1, 3 ) 

WRITE (NWRITE , 50 ) A LABEL ( 9 ) , (TOTALS <30, 1) ,1=1,3) 

WRITE l NWRITE, 50 ) ALABEL ( 10 } , (TOTALS (32,1) ,1=1,3) 

WRITE (NWRITE, 50) ALABEL (11) , (TOTALS ( 3 3 , I ) ,1=1,3) 

WRITE (NWRITE, 51) 

51 FORMAT (/, IX, 'ORBITAL AVERAGE POWER/HEAT REJECTION (WATTS )' ) 

WRITE (NWRITE, 50) ALABEL (12) , ( TOTALS { 17 , I ) ,1=1,3) 

WRITE (NWRITE, 50) ALABEL ( 14 ) , (TOTALS ( 2 0 , I ) ,1=1,3) 

WRITE (NWRITE, 50) ALABEL (29) , (TOTALS ( 3 5 , I } ,1=1,3) 

WRITE (NWRITE, 50 ) ALABEL ( 13 ), (TOTALS ( 3,1), 1=1 , 3 ) 

IF (NWRITE, EQ.6) READ ( NREAD , 1 ) IDUM 
1 FORMAT (12) 

WRITE (NWRITE, 3) 

WRITE (NWRITE, 30) N1,NR,M 
WRITE (NWRITE, 31) 

WRITE (NWRITE, 58) 

5C FORMAT (IX, 'VOLUMES (FT3) • ) 

WRITE (NWRITE, 50) ALABEL ( l),(TOTALS( 5, I), 1=1, 3) 

WRITE (NWRITE, 50) ALABEL ( 2 ) , (TOTALS ( 2 5 , I ) , 1=1 , 3 ) 

WRITE (NWRITE, 50) ALABEL ( 3 ) , (TOTALS (19,1) ,1=1,3) 

WRITE (NWRITE, 50} ALABEL ( 27 ) , (TOTALS (23 , I) ,1=1,3) 

WRITE (NWRITE, 50) ALABEL< 4), (TOTALS* 7, I), 1=1,3) 

WRITE (NWRITE, 50) ALABEL ( 5),(TOTALS( 9, I), 1=1, 3) 

WRITE (NWRITE, 50) ALABEL (16) , (TOTALS ( 1 >, I ) ,1=1,3) 

WRITE (NWRITE, 50) ALABEL ( 17 ) , (TOTALS ( 3 1 , I > , 1=1 , 3 ) 

WRITE (NWRITE, 50) ALABEL (18) , (TOTALS ( 3 4 , I ) ,1=1,3) 

WRITE (NWRITE, 50) ALABEL ( 15 ) , (TOTALS ( 16 , I) ,1=1,3) 

WRITE (NWRITE, 59) 

59 FORMAT (/, IX, 'RATINGS (1 TO 8)') 

WRITE (NWRITE, 50) ALABEL ( 19 ) , (TOTALS ( 10 , I ) ,1=1,3) 

60 FORMAT (T2 , A26,T24, <IFORM> ( 10X,F5 , 1} ,?X, 75 . 1) 

WRITS (NWRITE, 60) ALABEL (20) , (TOTALS { 11 , I ) ,1=1,3) 

WRITE (NWRITE, 60) ALABEL (21) , (TOTALS ( 12 , I ) , 1=1 , 3 } 

WRITE (NWRITE, 60) ALABEL (22) , (TOTALS ( 13 , I ) ,1=1,3) 

WRITE (NWRITE, 60) ALABEL (23) , (TOTALS ( 14 , I ) , 1=1 , 3 ) 

WRITE (NWRITE, 60) ALABEL (24) , { TOTALS { 15 , I ) ,1=1,3) 

WRITE (NWRITE, 60) ALABEL (25) , (TOTALS (27 , I) ,1=1,3) 

IF (NWRITE. EQ. 6) READ (NREAD, 1 ) IDUM 

75 IFORM =IARS 

WRITE (NWRITE, 3) 

WRITE (NWRITE, 61) N1,NR,N 

61 FORMAT (IX, 'AIR REVITALIZATION SYSTEM: ',12,' CREW PERSONS , » , 1 3 , 

* » DAY RESUPPLY, ',F4.1,» YEAR LIFETIME') 

WRITE (NWRITE, 62) (FILNAM(I) ,I=1,IARS) 

62 FORMAT (T5 , 'ITEM* , T2 5 , <IFORM> ( 3X, A12 ) ,SX, 'TOTALS' ) 

WRITE (NWRITE, 63) (SUBSYS(0,I) ,I=1,IARS) 

63 FORMAT (IX, ' LOAD ( LB/DA Y) * ,T25,<IFORM> (8X,F7 .2) ,/, IX, ' WEIGHTS ( LB ) ' ) 
WRITE (NWRITE, 50) ALABEL ( l),(SUBOYS( 4 , I ) , 1=1 , IARS ) , TOTALS { 4,1) 
WRITE (NWRITE, 50) ALABEL ( 2) , (SUBSYS ( 2 4 , I ) ,1=1, IARS) , TOTALS (24 , 1) 
WRITE (NWRITE, 50) ALABEL ( 3) , 'SUBSYS (18,1) ,1=1, IARS) , TOTALS ( 18 , 1 ) 
WRITE (NWRITE, 50) ALABSL(26) , ( SUBSYS ( 2 1 , I ) ,1=1, IARS) , TOTALS ( 2 1 , 1 ) 
WRITE (NWRITE, 50) ALABEL (27 ) , (SUBSYS (22 , I) ,1=1, IARS) , TOTALS ( 2 2 , 1) 
WRITE (NWRITE, 50) ALABEL { •.), (SUBSYS { 6 , I) , 1=1 , IARS ) , TOTALS { 6,1) 
WRITE (NWRITE, 50) ALABEL ( 5), (SUBSYS ( 8 , I) , 1=1 , IARS ) , TOTALS ( 8,1) 
WRITE (NWRITE, 50) ALABEL ( 6 ) , ( SUBS YS (2 6 , I ) , 1=1 , IARS ) , TOTALS ( 2 6 , 1 ) 
T.rtxTE (NWRITE, 50 ) ALABEL ( 8) , (SUBSYS (28 , I ) ,1=1, IARS) , TOTALS ( 2 8 , 1 ) 
WRITE (NWRITE, 50) ALABEL ( 9) , (SUBSYS (30 , I) ,1=1, IARS) , TOTALS ( 3 0 , 1 ) 
WRITE (NWRITE, 50) ALABEL (10) , (SUBSYS ( 32 , I ) ,1=1, IARS) , TOTALS ( 3 2 , 1 ) 
WRITE (NWRITE, 50) ALABEL (11) , (SUBSYS ( 33 , I) ,1=1, IARS) , TOTALS (33 , 1) 
WRITE { NWRITE ,51) 



WRITE (NWRITE , 50 ' ALABEL{12; , ( SUBSYS ( 17 , I) ,1=1, IARS) .TOTALS (17,1) 
T7RITE(NWRI E,50) ALABEL ( 1 1 ) , ( SUBSYS < 2 U , I ) ,1=1, IARS) /TOTALS (20,1) 
WRITE (NWRI‘. S,S0) ALABEL ( 2 9 ) , ( 8UBSY0 (35,1) ,I=X,IARS) , TOTALS ( 3 5 , 1 ) 
WRITE (NWRIT. 5,50) ALABEL { 13 ),{ BUBBYS ( 3,1) , 1=1 , IARS ) , TOTALS ( 3,1) 
IP (NWRITE. LQ. 6) READ ( NREAD , 1 ) IDUM 
WRITE (NWRITE, 3) 

WRITE (NWR.TTE, 61) Ml,), M 

WRITE (NWRITE, 62) (FII,2<AM(I) ,1=1, IARS) 

WRITE (NWRITE, 71) ( ITYPE (1,3) , ITYPE(I,4) ,1=1, IARS) 

71 FORMAT (IX,’ NUMBER OF UNITS/ ALTERNATES 1 ,T25,3 ( 10X, 12 , • / 1 ,1?) , 

* /, i::, 'VOLUMES (FT3) 1 ) 

WRITE (NWRITE, 50) ALABEL ( 1),(SUB3YS( 5 , I ) , 1=1 , IARS ) , TOTALS ( 5,1) 
WRITE (NWRITE, 50) ALABEL ( 2) , ( SUBSYS (25,1) ,1 = 1, IARS) , TOTALS ( 2 5 , 1 ) 
WRITE (NWRITE, 50) ALABEL ( 3) , (SUBSYS (19,1) ,1=1, IARS) , TOTALS ( 19 , 1 ) 
WRITE (NWRITE, 50) ALABEL (2 7) , ( SUBSYS (2 3 , I ) ,1=1, IARS) , TOTALS ( 2 3 , 1 ) 
WRITE (NWRITE, 50) ALABEL ( 4), (SUBSYS { 7 , I ) , 1=1 , IARS) , TOTALS ( 7,1) 
WRITE (NWRITE, 50) ALABEL { 5), ( SUBSYS { 9 , 1 ) , 1=1 , IARS ) , TOTALS ( 9 , .1 ) 
WRITE (NWRITE, 50) ALABEI.(lfi) , (SUBSYS (29 , 1) ,1=1, IARS) , TOTALS ( 2 9 , 1 ) 
WRITE (NWRITE, 50) ALABEL (17) , ( SUBSYS ( 3 1 , 1 ) ,1=1, IARS) /TOTALS ('31,1) 
WRITE ( NWRITE ,50) ALABEL (18) , (SUBSYS ( 3 4 , I) ,1=1, IARS) /TOTALS (34 , 1) 
WRITE ( NWRITE, 50) ALABEL ( 15) , (SUBSYS , 1« , I) ,1=1, IARS) , TOTALS ( 16 , 1 ) 
WRITE (NWRITE, 59) 

WRITE (NWRITE, 60) ALABEL ( 19 ) , (SUBSYS ( 10 , I ) ,1=1, IARS) , TOTALS ( 10 , 1 ) 
WRITE (NWRITE, 60) ALABEL (20) , (SUBSYS ( 11, I) ,1=1, IARS) , TOTALS ( 11 , 1 ) 
WRITE (NWRITE, 60) ALABEL (21) , (SUBSYS ( 12 , I) ,1=1, IARS) /TOTALS ( 12 , 1 ) 
WRITE (NWRITE, 60) ALABEL (22 ) , (SUBSYS (13,1) ,1=1. IARS) , TOTALS ( 13 , 1 ) 
WRITE (NWRITE, 60) ALABEL (23 ) , (SUBHYS(14,I) ,1=1, IARS) , TOTALS ( 14 , 1 ) 
WRITE (NWRITE, 60 ; ALABEL (2 4) , ( SUBSYS ( 15 , I) ,1=1, IARS) , TOTALS ( 15 , 1) 
WRITE (NWRITE, 60) ALABEL (2 5) , (SUBSYS (27 , 1) ,1=1, IARS) / TOTALS (7.1 , 1) 
IP (NWRITE. EQ. 6) READ ( NREAD , 1) IDUM 
IF ( IARS. EQ. NUMBER) GOTO 110 
100 IFORM=NUMBER-IARS 

IF ( I FORM . QT . 3 ) IFORM=3 
IPRNT1=IARS 

95 IPRNTl=IPRNTl+IFORT 
WRITE (NWRITE, 3) 

WRITE (NWRITE, 94) N1,NR,M 

94 FORMAT (IX, 'WATER RECLAMATION SYSTEM: ',12,' CREW PERSONS ,', 13 , 

* ' DAY RESUFVLY, ‘,F4.1,* YEAR LIFETIME') 

WRITE (NWRITE, 62) (FILNAM ( I) , I=IWRS , IPRNT1 ) 

WRITE (NWRITE, 63) (SUBSYS(0,I) , I=IWRS , IPRNT1 ) 

7 2 FORMAT (IX, * PROCESS EFFICIENCY' ,T25 , <IFORM> ( 5X , F10 . 3 ) ,2X,F10 .3) 
WRITE (NWRITE, 50) ALABEL ( 1), (SUBSYS ( A , I ) , I=IWRS , I PRNT1 ) , 

* TOTALS ( 4,2) 

WRITE (NWRITE, 50) ALABEL ( 2 ) , ( SUBS Y8 ( 2 4 , I ) , I=IWRS , IPRNT1) , 

* TOTALS (24,2) 

WRITE (NWRITE, 50) ALABELf 3 ) , ( SUBSYS ( 18 , I) , I=IWR8 , IPRNT1 ) , 

* TOTALS (18,2) 

WRITE (NWRITE, 50) ALABEL (26) , { SUBSYS ( 2 1 , I ) , I=IWRS , IPRNT1 ) , 

* TOTALS (21,2) 

WRITE (NWRITE, 50) ALABEL ( 27 ) , (SUBSYS (22 , I) , I=IWR3 , IPRNT1) , 

* TOTALS (2 2, 2) 

WRITE (NWRITE, 50) ALABELf 4),(SUBSYS( 6 , 1 ) , l‘=IWRS , IPRNT1 ) , 

* TOTALS ( 6, 2) 

WRITE (NWRITE, 50) ALABEL ( 5), (SUBSYS ( 8,1) , I=IWRS , IPRNT1 ) , 

* TOTALS ( 8,2) 

WRITE ( NWRITE ,70) ALABEL (30), AUXEQ (11,0,1) 

70 FORMAT (T2,A2 6, T23, <IFORM> (1SX) ,4X,F10.2) 

WRITE (NWRITE, 50) ALABEL ( 6) , (SUBSYS (2 6 , I ) , I=IWRS , IPRNT1) , 

* TOTALS (26,2) 





WHITE (NWRITE, 50) ALABEL ( 8) , (SUBSYS (28,1) , I=IWRS, IPRNT1J t 

f totals(20,2) 

WRITE (NWRITE, 50) ALABEL ( 9 ) , ( 80BB Yti ( 3 0 , I ) , I=IWRS , IPRNTI ) , 

* TOTALS <30, 2) 

WRITE (NWRITE, 53) ALABEL ( 10 ) , (8173378 (32,1) , JssIlfRS , IPRNTI ) , 
+ TOTALS (32,2) 

WRITE (NWRITE, 50) ALABEL ( 11) , (SCC3YS (33 , 1) , I=IWRS , IPRNTI ) , 

* TOTALS (3 3, 2) 

WRITE (NWRITE, 51) 

WRITE (NWRITE, 50) ALABEL (12) , (SUBSYS (17,1) , IsIWRfl , IPRNT1 ) , 

* TOTALS (17,2) 

WRITE (NWRITE, 50) ALABEL ( 14 ) , (SUBSYS ( 20 , I ) , I=IWR8, IPRNTI) , 

* TOTALS (2 0,2) 

WRITE (NWRITE, 50) ALABEL ( 13 ), (SUBSYS ( 3,1), I=IWRS , IPRNTI ) , 

* TOTALS ( 3,2) 

IP (NWRITE. EQ. 6) READ (NREAD, 1 ) IDUH 
WRITE (NWRITE, 3) 

WRITE (NWRITE, 94) N1,NR,M 

WRITE (NWRITE, 62) (FILNAH(I) , IsIWRS, IPRNTI) 

WRITE (NWRITE, 72) (EFF(I) , T=IWR8 , IPRNTI) 

WRITE (NWRITE, 71) ( ITYPE (1,3) , ITYPE (1,4) , I=IWR8 , IPRNT1) 

WRITE (NWRITE, 30) ALABEL ( 1),(3UDSYS( 5 , I ) , I=IWR8 , IPRNT1) , 

* TOTALS ( 5,2) 

WRITE (NWRITE, 50) ALABEL ( 2 ) , ( SUBSYS (25,1) , 1— IWRS , XPRNT1) , 

* TOTALS (25,2) 

WRITE (NWRITE, 50) ALABEL ( 3 ) , (SUBSYS ( 19 , I ) , IsIWkS , IPRNT1 ) , 

* TOTALS (19, 2) 

WRITE (NWRITE, 50) ALABEL (27 ) , ( SUBSYS (23 , I) , Ii=IWR8 , IPRNTI) , 

* TOTALS (23,2) 

WRITE (NWRITE, 50) ALABEL ( 4),(SUBSYS( 7,1), IsIWRB , IPRNT1) , 

* TOTALS ( 7,2) 

WRITE (NWRITE, 50) ALABEL ( 5),(8UB8Y8( 9,1) , I— IWRS , IPRNTI) , 

* TOTALS ( 9,2) 

WRITE (NWRITE, 50) ALABEL ( 16 ) , (SUBSYS (29,1) , I- IWRS , IPRNTI, ) , 

* TOTALS (29,2) 

WRITE (NWRITE, 50) ALABEL ( 17 ) , (SUBSYS ( 3 1 , I ) , I-IWR8 , IPRNTI) , 

* TOTALS (31,2) 

WRITE (NWRITE, 50) ALABEL ( 18 ) , ( SUBSYS ( 3 4 , I) , I=rIWRS, IPRNTI) , 

* TOTALS (34,2) 

WRITE (NWRITE, 50) ALABEL (7.5) , (SUBSYS ( 16 , I) , I=IFRS , IPRNTI ) , 

* TOTALS (16,2) 

WRITE (NWRT.TE,73) 

73 FORKAT (IX, 'RATINGS (1 TO 8)') 

WRITE (NWRITE, 60) ALABEL (19 ) , (SUBSYS { 10 , I) , I=IWRS, IPRNTI) , 



TOTALS (10, 2) 

WRITE (NWRITE, 60) ALABEL (20) , ( SUBSYS ( 11 , I) , I=IWRS , IPRNTI ) . 
TOTALS (11,2) 

WRITE (NWRITE, 60) ALABEL (2 1) , (SUBSYS (12 , I) , I=IWRS , IPRNTI ) , 
TOTALS (12, 2) 

WRITE (NWRITE, 60) ALABEL (22) , ( SUBSYS ( 13 r I } , I=IWRS , IPRNTI ) , 
TOTALS (13, 2) 

WRITE (NWRITE, SO) ALABEL (23) , ( SUBSYS ( 14 , I) , I=IWRS , r IPRNT7.) , 
TOTALS (14,2) 

WRITE (NWRITE, 60) ALABEL (2 4 ) , ( SUBSYS ( 15 , I) , I=IWRS , IPRNTI ) , 
TOTALS (15, 2) 

WRITE (NWRITE, 60) ALABEL (2 5) , (SUBSYS (27 , I) , I-IWRS , IPRNTI ) , 
TOTALS (27, 2) 

IF (NWRITB.EQ.fi) READ (NREAD, 1) IDUM 

IWRS=IPRNT1+1 

IFORM-NUMBER- IPRNTI 


17 (IFORM.EQ.G) GOTO 110 
IF (IFORM.GT.3) IFORM-3 
GOTO 93 
110 CONTINUE 
RETURN 
END 

SUBROUTINE WARSMAT (NWRITE) 

REAL N,K,N2LBAK,N2AIR, N2RPRS , N2COM, N2PURG , N2TOT, MAXEUP, MAKEUFR , 

* LAUNL 

PARAMETER (NDSGN=5fi , NflSDAT=3 0 / NBYS=50 , NSUB8YB=3 5 , NNUH=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 ,NWAV/X=16 ,NITYP=4 ) 

PARAMETER <NCOMPAR=20> 

COMMON /CHAR/ ADUMP 

COMHON /GENRL/ DESIGN (ND8UN) , BSDATA (NS8DAT, NSY8 ) , 

* SUBSYS { 0 2 N3UBSY8 , NNUM) , N , R , RE , M, ITYPE (NNUM, NITYP) , IWATEP. (NWNUM) , 

* TOTALS (N8UBSYS, 3) , NUMBER, AR8AUX (NAAUX, 3 J , WRSAUX (MWAUX, 0 : 3 ) , 

* ARGAUXQ (30, NAAUX ) , WRBAUXQ ( NWNUM , 0 1 NWAUX ) , 

* AUXILA(NNUM,NAAUX,0:3) ,AUXILW (NNUM, OlNWAUX, 0:3) , 

* GROUP, IUNIT,JFLOW ( NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PB WATER ( NAAUX) , LFLOW ( NCOMPAR , NCOMPAR ) 

COMMON /MATRL/ PPN2 , PP02 , PT0T,02MET,02EVA,02LEAX, 02AIR, 02RPRB , 

* 02 COM , 02 EDO , 02T0T , H2 EDC , H2 BSCH , H2 BAB , H2 TOT , H2STOR , C02 MET , 002 EVA , 

* C02 TOT , N2 LEAK , N2 AIR , N2 RPRB , N2 COM , N2 PURG , N2 TOT , H20GEN , E2 OREMRQ , 

* H20RED , C , CH4 ,C02 L8T , C02 RED , H2 8T0RR , CREfl , C1I4R , C02 LSTR , H20REM , 

* HAND, SHOWER, CLOTHES , DISHW, DRINK, FOODP, URINPL, EXPH20, EVAH20, 

* H20REQ , H20MET , H2OFO0D , H20PR0D , H20T0T , SWEAT , HYGIENL , FOODPL , LAUNL , 

* DISHWL, COND, REDH20 , HANDLD, SHOWLD , HYGIENLD, CLOTHLD, K20URN, HP.RED, 

* URINLD , DI8HWLD , CONDR , CONDP , CONDB , REDH20R , REDH20P, REDH20S , HYGIENR 

* HYGIENP , HYGIEN8 , CLOTHR, CLOTHP , CLOTHS , URINR, URINP, URINB , DISHWR, 

* DISHWS , OTHERLD , OTHERR , OTHER? , OTHERS , H20L0AD , H20REC , POTREC , POTREQ 

* MAKEUP, EXCESS, H20ST0RR,MAKEUPR, EXCE88R, EVAH20LD,DISHWP, H208T0R, 

* BXFH20L , H20AR8 , H2 REQ , FECAL , H20NET , HYGREC 
CHARACTER* 6 ADUMP 

NREAD=S 
NlsIFIX (N) 

WRITE (NWRITE, .10) N1 

10 FORMAT ( 5 (/) ,T15, 'AIR REVITALIZATION SUMMARY (LB/DAY): ',12, 

* » CREW PERSONS « ) 

WRITE (NWRITE,20) PTOT, PP02 , PPN2 
20 FORMAT (T9, 'TOTAL PRESSURE ',F4.1,‘ PSIA PP02= »,F4.1, 

* ' PSIA PPM2= * , F4 . 1 , ' PSIA') 

WRITE (NWRITE, 30) 

30 FORMAT (T4, >02 REQUIREMENTS • ,T26 ,' H2 REQUIREMENTS ', T4 9 , 

* ' C02 PRODUCED' ,T66, *N2 REQUIREMENTS') 

WRITE (NWRITE , 40 ) 02MET, H2EDC, COZMET, N2LEAK 

40 FORMAT (IX, 'METABOLIC = • , F5 . 2 , T2 4 , > SDC • , T35 , ' = ',F5.2,T46, 

* 'METABOLIC^ » , F5 . 2 ,T65 , 'MOD LEAK = »,F5.2) 

WRITE (NWRITE, 50) 02EVA,H2BSCH,C02EVA,N2AIR 

50 FORMAT (IX, 'EVA' ,T13, '= » , F5 . 2 , T2 4 , ' BOSCH " , T3 5 , ' = >,F5.2,T46, 

* 'EVA* ,T55, '= * ,F5. 2, T65,« AIRLOCK = ',FS„2) 

WRITE (NWRITE, 60) 02 LEAK, H2SAB, N2 APRS 

60 FORMAT (JX, 'MOD LEAKAGES ', F5 . 2 , T2 4 ,' SABATIER = »,F5.2,T65, 

* 'MOD REPRSs ' , F5 .2) 

WRITE (NWRITE, 70) 02AIR,N2C0M 

70 FORMAT (IX, 'AIRLOCX = ' ,F5 . 2 ,T65 , « COMMODE a ',1*5.2) 

WRITE (NWRITE, 80) 02RPRS,N2PURG 
80 FORMAT (1 A, 'MOD REPRESS= • , ?5 . 2 , T65 , ' PURGE = ',FS.2) 

WRITE (NWRITE, 90) 02 COM 
90 FORMAT ( 1”, ' COMMODE s *,F5.2) 



WRITE (NWP.J.TE, 100) 02 EDO 

100 FORMAT ( IX, ' EDC* , T13 , ' = *,F5,2) 

WRITE (NWRITE, 110) 02T0T, H2REQ,, C02TCT,N2T0T 
110 FORMAT (T4, 'TOTAL = F5 . 2 , T2 6 , 1 TOTAL = »,F5.2,T48, 

* 'TOTAL = » ,F5 .2 ,7 27, 'TOTAL = ',F5.2) 

WRITE (NWRITE, 120) 

120 FORMAT ( ) 

WRITE (NWRITE, 130) 

130 FORMAT (T16, '02 GENERATION ' , T3 8 , ' C02 REMOVAL ', T6 1 C02 REDUCTION') 
WRITE (NWRITE, 140) H20GEN, H20REMRQ , C02T0T 
140 FORMAT (IX, 'INPUTS: ' ,T12, *H20 REQUIREDa *,F5.2,T35, 

* ' H20 CONSUMED= ' , I 3 . 2 , TS8 , * 002 AVAILABLE;: *,FS.2) 

WRITE (NWRITE, ISO) 02 EDC, H2 RED 

150 FORMAT (T3 5, '02 CONSUMED^ • , F5 . 2 , T58 , • H2 CONSUMED a ',F5.2) 

WRITE (NWRITE, ICO) H2SDC 
160 FORMAT (T3 5, ' H2 CONSUMED^ *,F5.2) 

WRITE (NWRITE, 170) 

170 FORMAT () 

WRITE (NWRITE, 180) 02T0T, C02MET,H20RED 
180 FORMAT (IX, 'OUTPUTS: 02 GENERATED^ • , F5 . 2 , T3 5 , • C02 REMOVED a 

* FS . 2 , T58 , ' H20 PRODUCED a ',F5.2) 

WRITE (NWRITE, 190) H2TOT,H20REM, C 

190 FORMAT (T12, • K2 GENERATED^ • , F5 . 2 , T33 , ' H20 LATENT = ',F5.2, 

* T58 , ' CARBON STOREDa »,F5.2) 

WRITE (NWRITE, 200) ADUMP,H28TOR 

200 FORMAT (T58 , 'H2 ',A6,« a *,F5.2) 

WRITE (NWRITE, 2 10) ADUMP,CH4 
210 FORMAT (T' 7 8, 'CH4 ',A6,» a *,F5.2) 

WRITE (NWRITE, 220) ADUMP,C02LST 
220 FORMAT (T5 8, • C02 *,A6,' = «,F5.2) 

WRITE (NWRITE, 230) H20ARB,CO2RED 

230 FORMAT ( IX, 'H20 LOST BY ARSa* ’ , F6 . 2 , T50 , * C02 REDUCED a «,F5.2) 

IF (NWRITE. EQ. 6) READ (NREAB, 1) IDUM 
1 FORMAT (12) 

RETURN 

END 

SUBROUTINE WWRSMAT (NWRITE) 

REAL N , M , N2 LEAK , N2 A I R , N2 RPRS , N2 COM , N2. PURG , N2 TOT , MAKEUP , MAKEUPR , 

* LAUNL 

PARAMETER ( NDSGNa5 6 , NS8DAT=3 0 , NSYSaSO , NSUBSYS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER ( NAAUXal 0 , NWAUX=16 , NITYP=4 ) 

PARAMETER < NC0MPARa2 0 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , S8DATA (N3SDAT, NSYS) , 

* SUBSYS ( 0 : NSUBSYS , NNUM) ,N,R,RE,M,ITYPE (NNUK, NITYP) , I WATER (NWNUM) , 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) ,WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ (30, NAAUX) ,WRSAUXQ (NWNUM, 0: NWAUX) , 

ft AUXILA ( NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 i NWAUX, 0 : 3 ) , 

* GROUP, IUNIT,JFLOW(NAAUX,NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER (NAAUX., NAAUX) , PS WATER (NAAUX) , LFLOW (NCOMPAR , NCOMPAR) 

COMMON /MATRL/ PPN2 , PP02 , PTOT,O2MET,O2EVA,O2LEAK,02 AIR ,02 RPRS , 

* 02 COM , 02 EDC , 02T0T, H2EDC,H2BSCH,H2SAB, H2TOT, I12STOR , C02MET, C02EVA, 

* C02 TOT , N2 LEAK , N2 AIR , N2 RPRS , N2 COM , N2 PURG , N2 TOT , H20GEN , H20REMRQ , 

* H20RED, C, CH4 , CC2 LST, C02RED, H2STORR, CRES , CH4R , C02 LSTR ,H20REK, 
ft HAND , SHOWER , CLOTHES , DISirW , DRINK , FOODP , URINFL , EXPH2 0 , EVAH2 O , 

* H20REQ H20MET , H2 OFOOD , H20PROD, H20T0T, SWEAT , H YGIENL , FOODPL , LAUNL , 

* DISHWL , COND , P.EDH20 , HANDLD, SHOWLD , HYGIENLD , CLOTHLD, H20URN, H2 RED, 

ft URINLD,DISHWLD,C0NDR,C0NDP,C0NDS,REDH20R,REDH20P,REDH20S,HYGIENR, 

* HYGIENP , HYGIENS , CLOTHR , CLOTHP , CLOTHS , URINR , URINP , URINS , DISHWP , 


* DISHWS , OTKERLD , OTHERR , OTHER!? , OTHERS , H20L0AD , H20REC , POTAEC , P07REQ , 

* MAKEUP, EXCESS , H20ST0RR, MAKEUPR , EXCEflSR, EVAH20LD , DI3HWP, H20ST0R, 

* EXPH20L , H20ARS , H2 REQ , FECAL , H20NET , hYGREC 
CHARACTER** ADUMP 

KREAD=5 
N1=IFIX (N) 

WRITE (NWRITE, 10) HI 

10 FORMAT(5 (/) ,T16, 'WATER RECLAMATION SUMMARY (LB/DAY) S ',12, 

* • CREW PERSONS’) 

WRITE (NWRITE, 20) 

20 FORMAT ( IX, 'H20 REQUIREMENTS S ', T47 ,' LOAD RECOVERED’, 

* ' POTABLE LOST') 

WRITE ( NWRITE ,30) HAND , COND , CONDR , CONDP , CONDS 
30 FORMAT <T4, 'HAND WASH =*, F6 . 2 , T27 ,' 1 . CONDENSATE ', T4 6 , FS . 2 , 

* T56,F6.2,Tft6,F6.2,T75,F6.2) 

WRITE ( NWRITE ,40) SHOWER, SWEAT 

40 FORMAT (T4 , ' SHOWER' ,T17, ' = ’ , F6 . 2 , T3 0 , ' SWEAT & RE8P ' , T4.6 , F6 . 2 ) 

WRITE (NWRITE, 50) CLOTHES , HYGIENL 

50 FOPMAT(T4, 'CLOTHES WASH =', F6 . 2 , T30 ,' HYGIENE LATENT ', T4 «, F6 . 2 ) 
WRITE (NWRITE, 60) DI8HW , FOODPI, 

60 FORMAT (T4, 'DISHWA8H = • , F6 . 2 , T3 0 , ' FOOD PREP LAT ' , T46,F6. 2) 

WRITE (NWRITE ,70) DRINK, LA0NL 

70 FORMAT (T4, 'DRINKING =', F6 . 2 , T30 ,' LAUNDRY LATENT 5 ,T46,F6.2) 

WRITE (NWRITE, 80) FOODP, DISHWL 

80 FORMAT (T4 , ' FOOD PREP = ' , F6 . 2 , T30 , ' DISHWASH LAT * , T4« , F6 . 2 ) 

WRITE (NWRITE, 90) URINFL, EXPH20L 

90 FORMAT (T4, 'URINAL FLUSH =», F6 . 2 , T30 ,' EXPERIMENT LAT ' , T4 6 , F6 . 2 ) 
WRITE (NWRITE ,100) EXPH20 , K20REM 

100 FORMAT (T4,, 'EXPERIMENT = • , F6 . 2 , T30 , • C02 REMOVAL* ,T46 ,F6 . 2 ) 

WRITE (NWRITE, 110) EVAH20, REDH20, RBDH20R, REDH20P, REDH20S 
110 FORMAT (T4 , 'EVA' ,T17, ' = ' ,F6.2,T27, * 2 . C02 REDUCTION' ,T46,F6.2, 

* T56,F6.2,T66,F6.2,T75,F6.2) 

WRITE ( NWRITE ,120) H20REMRQ , HYGIENLD , HYGIENR , HYGIENP , HYGIEN8 
120 FORMAT ( T4 , ' C02 REMOVAL = ' , F6 . 2 , T27 , • 3 . HYGIENE K20 ' , T46 , F6 . 2 , 

* T56,F6.2,T65,F6.2,T75,F6.2) 

WRITE (NWRITE, 130) H20GEN, HANDLD 

130 FORMAT (T4 , 1 02 GEN ' , T17 F6 . 2 , T30 , ' HAl'D WASH « ,T4 6 , F6 . 2 ) 

WRITE (NWRITE, 140) POTREQ, SHOWLD 

140 FORMAT (T3, 'POTABLE REQD =', F6 . 2 ,T30 ,' SHOWER H20 » , T4 6 , F6 . 2 ) 

WRITE ( NWRITE ,150) H20REQ , CLOTHLD , CLOTHR , CLOTHP , CLOTHS 
150 FORMAT (IX, 'TOTAL H20 REQD =', F6 . 2 ,T27 CLOTHES WASH • , T4 6 , F6 . 2 , 

* T56,F6.2,T66,F6.2, T7 5 , F6 . 2 ) 

WRITE (NWRITE, 162 URINLD, URINR, URINP , URIN8 
l 60 FORMAT (T2 7, '5. URINE H20 » , T46 , F6 . 2 , 

* T56,F6.2,T66,F6.2, T7 5 , F6 . 2 ) 

WRITE f NWRITE, 170) H20MET, H20URN 

170 FORMAT (T4, 'METABOLIC = ' , F6 . 2 , T30 , ' H20 IN URINE • , T4 6 , F6 . 2 ) 

WRITE (NWRITE, 160) H20FOOD, URINFL 
180 FORMAT (T4, ‘H20 IN FOOD — ' , F6 . 2 , T30 , ' URINAL FLUSH ' ,T4 6 , F6 . 2 ) 

WRITE (NWRITE , 19 0 ) H2 O PROD , EVAH2 OLD 
190 FORMAT (IX, »H2C PRODUCTION =' ,F6 . 2 , T30 ,' EVA/EXP H20 ' , T4 6 , F6 . 2 ) 

WP.ITE (NWRITE, 2 00 ) H20TOT, DISHWLD, DISHWR, DISHWP, DISHWS 
200 FORMAT (IX, 'TOTAL H20 AVAIL= ', F6 . 2 , T27 ,' 6 . DISHWASH H20 » , T4 6 , F6 . 2 , 

* T56,F6.2,T66,F6,2,T75,F6.2) 

WRITE ( NWRITE ,210) H20ARS , OTHERLD , OTHERR , OTHERP , OTHERS 
210 FORMAT (T4, »H20 LOST (ARS) = », Fti . 2 ,T2 9 ,' EVA/EXP LOST ' ,T4 6 , F6 . 2 , 

* T56,F6.2,T66,F6.2,T75,F6„2) 

ADUM=0 . 

WRITE ( NWRITE ,220) FECAL , ADUM , ADUM , FECAL 
220 FORMAT (T2 9, 'FECAL H20 ’ , T4 6 , F6 . 2 , 
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* T5<5 ,F6 , 2 ,T'.56 , F6 . 2 , T7 5 , F« . 2 ) 

WHITE (NWRITE, 2 30 ) H20NET, H2OL0AD, H20RUC, POTREC , H208T0X 
230 FORMAT ( IX, 1 NET H20 LOAD = • , P6 . 2 , T27 , • TOTALS 1 , T4 6 , F6 . 2 , 

* T5<S,F6.2,T66,F6.2,T75,F6.2) 

IF (NWRITE. EQ. 6) READ ( NREAD , 1 ) IDUM 
1 FORMAT (12) 

RETURN 

END 

SUBROUTINE RESUP 

REAL N, M, N2 LEAK, N2 AIR, N2 RPR8, N2COM, N2PURG,N2TOT, MAKEUP, MAKE UPR, 

* LAUNL 

PARAMETER (NDSGN=5 6 , NSSDAT=30 , N8YS=:5 0 ,N8UB8YS=35 ,NMUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT, N8YS) , 

* SUBSYS ( 0 : NSUBSYS , NNUM) , N, R, RE , M, ITYPE (NNUM,NITYP) , IWATER (NWNUM) , 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3) , WRSAUX (NWAUX, 0 : 3 ) 

* ARSAUXQ (30, NAAUX ) ,WRSA.UXQ( NWNUM, 0: NWAUX ) , 

* AUXI LA (NNUM, NAAUX, 0:3) ,AUXILW (NNUM, 0 S NWAUX, 0 $ 3 ) , 

* GROUP, IUNIT,JFLOW( NAAUX, NCOMPAR) , KFLOW(NCOMPAR,NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PSWATER (NAAUX) , LF LOW (NCOMPAR, NCOMPAR) 

COMMON /MATRL/ PPN2 , PP02 , PTOT,02MET, 02EVA,O2LEAK,O2 AIR, 02RPR8 , 

* 02 COM, 02 EDO , 02 TOT , H2EDC, H2B8CH, H2SAB ,H2T0T, H28TOR, CQ2MET, C02EVA, 

* C02 TOT , N2 LEAK , N2 AIR , N2 EPRS , N2 COM , N2 PURG , N2 TOT , H2 OGEN , H20REMRQ , 

* H20RED, C , CH4 , C02L3T , C02RED, H28TORR, CRES , CK4R, C02LSTR, H20REM, 

* HAND, SHOWER, CLOTHES , DISHW, DRINK, FOODP, URINFL, EXPH20, EVAH20 , 

* H2OREQ,H2OMET,H20F00D,H20PR0D,H20T0T, SWEAT, HYGIENL, FOODPL, LAUNL, 

* DISHWL , COND , REDH20 , HANDLD , SHOWLD , HYGIENLD , CLOTHLD , H20URN , H2 RED , 

* URINLD , DISKWLD , CONOR, CONDP , CONDS , REDH20R , REDH20P , REDH208 , HYGIENR , 

* HYGIENP, HYGIENS , CLOTHR , CLOTHP , CLOTHS , URINR, URINP, URINS , DISHWR , 

* DISHWS , OTHERLD , OTHERR , OTHERP , OTHERS , H20L0AD , H20REC , POTREC , POTREQ , 

* MAKEUP, EXCESS, H2OST0RR,MAKEUPR,EXCESSR,EVAH20LD,DISHWP,H20ST0R, 

* EXPII20L, K20 ARS , H2 REQ , FECAL, H20NET , HYGREC 

COMMON /SSLOAD/ WATER (NWAUX) ,E (NWAUX, NWAUX) , AUXEQ ( IS , 0 : 7 , 3 ) ,STOREW, 

* CLOTKW, 

* CLOTHV, DI8KWGHT, DISHV,TRASHW,TRASHV, AUXMAT ( 3 ) , 

* EFF (NWAUX) 

CHARACTER* 6 ADUMP 


AUXEQ ( I, J , 1) 
AUXEQ ( I, J , 2) 
AUXEQ ( I, J, 3) 


WEIGHT (LBS) 
VOLUME (FT3) 
POWER (WATTS) 


AUXEQ (I, 0,1) 
AUXEQ (I, 1 , K) 
AUXEQ (I, 2 , K) 
AUXEQ (I, 3 , K) 
AUXEQ (I, 4,K) 
AUXEQ (I, 5 , K) 
AUXEQ (I, 6 , K) 
AUXEQ (I, 7 , K) 


= WATER WEIGHT (INITIAL STARTUP) 

= AUXILIARY EQUIPMENT, EXCLUDING TANKAGE 
= TANKAGE 

- MATERIAL (WEIGHT ONLY): C02,K2,0R H20 
= MATERIAL (V7EIGHT ONLY) : CH4 OP. C 

= STORAGE EQUIPMENT FOR C02,H2,0R H20 

- STORAGE EQUIPMENT FOR CK4 OR C 
= TOTAL 


AUXEQ ( 1 ,<7 , K) 
AUXEQ ( 2,J,K) 
AUXEQ ( 3,J,K) 
AUXEQ ( 4 , J, K) 
AUXEQ ( 5, J, K) 
AUXEQ ( 6 , J , K) 


02 GENERATION SUBSYSTEM 
C02 REMOVAL SUBSYSTEM 
C02 REDUCTION SUBSYSTEM 
WATER RECLAMATION SUBSYSTEM # 1 
WATER RECLAMATION SUBSYSTEM # 2 
WATER RECLAMATION SUBSYSTEM # 3 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


AUXE Q( 7,J,K) 
AUXEQ ( 8,J,K) 
AUXEQ ( 9,J,K) 
AUXEQ ( 10 , J , K) 
AUXEQ(11,J,K) 
AUXEQ ( 12 , J, K) 
AUXEQ (13 , J,K) 
AUXEQ ( 14 , J , K) 
AUXEQ (15, J,K) 
AUXEQ (16,J,K) 
AUXEQ (17 , <7 ,K) 
AUXEQ (18, J,K) 


WATER RECLAMATION SUBSYSTEM # 4 

WATER RECLAMATION SUBSYSTEM # 5 

WATER RECLAMATION SUBSYSTEM § 6 

EVA/EXPERIMENT H20 LOST 

MAKEUP H20 

EXCESS H20 

RESUPPLY CLOTHES 

RESUPPLY (DISPOSABLE) DISHES 

TRASH 

TOTALS FOR ARS (1-3) 

TOTALS FOR WRS (4-12) 

GRAND TOTALS (1-15) 


DO 6 1=1,18 
DO 5 J=0,7 
DO 4 K=1 , 3 

4 AUXEQ ( I , J , K) =0 . 

5 CONTINUE 

6 CONTINUE 
LCNTW=3 

DO 100 1=1, NUMBER 
ISYS=ITYPE (1,1) 

17 (ISYS.GE. 21. AND. ISYS. LE. 30) THEN 
DO 10 K=1 , 3 
DO 12 J=1 , NAAUX 

12 AUXEQ ( 1 , 1 , K) = AUXEQ ( 1 , 1 , K) +AUXILA ( I , J , K) ‘AUXILA { I , J , 0 ) 

DO 11 J=l,6 

1 1 AUXEQ ( 1, 7 , K) =AUXEQ (1,7 ,K) +AUXEQ ( 1 , J , K ) 

10 CONTINUE 
ENDIP 

IF (ISYS.GE. 1. AND. ISYS. LE, 10) THEN 
DO 20 K=1 , 3 
DO 22 J=l, NAAUX 

22 AUXEQ ( 2 , 1 , K) =AUXEQ (2 , 1 , K) +AUXILA ( I , J , K) * AUXILA (I , J, 0 ) 

DO 21 <7=1,6 

21 AUXEQ (2 ,7 , K) =AUXKQ (2 , 7 , X) f AUXEQ ( 2 , J , K) 

20 CONTINUE 
ENDIF 

IF (ISYS.GE. 11. AND. ISYS. LE. 20) THEN 
AMLTFC=2 . -FLOAT ( ITYPE (1,2)) 

DO 30 K=l, 3 
DO 31 J=l, NAAUX 

IF (J.LT.6.OR.J.GT.10) AUXEQ ( 3 , 1, K) =AUXEQ (3 , 1 , R) +AUXILA ( I , J , 0 ) * 
* AUXILA (I , J , K) 

IF (J.EQ. 6. OR. J.EQ.8) AUXEQ ( 3 , 1 , K) =AUXEQ ( 3 , 1 , K ) + AUXILA ( I , J , 0 ) * 

‘ AUXILA ( I ,J , K) ‘AMLTFC 

31 CONTINUE 
30 CONTINUE 

IF (I8YS.EQ.il) THEN 
AUXEQ (3,3,1) =H2 STORR 
AUXEQ (3,4,1) =CRES 
DO 33 K=l,3 

AUXEQ ( 3 , 5 , K) =AUXILA (1,7,0) ‘AUXILA { I , 7 , K) * AMLTFC 
AUXEQ (3, 6, K)=AUXILA( I, 10,0) ‘AUXILA (1,10, K) 

33 CONTINUE 

ENDIF 

IF (ISYS. EQ. 12) THEN 
AUXEQ (3,3,1) =C02 LSTR 
AUXEQ (3,4,1) =CH4R 
RATIO=CH4R/ (CH4R+C02LSTR) 


o o o 


DO 34 K=l,3 

QUANT=AUXILA ( i , 9 , 0 ) *AUXILA ( 1 , 9 , K) *AMLTFC 
AUXEQ{3,5,K)=(1. -RATIO) *QUANT 
AUXEQ { 3 , 6 , X) =RATIO*QUANT 
34 CONTINUE 

ENDIF 

DO 34 K=l,3 
IF (I8YS.EQ.12) THEN 

AUXliAT (X) = (AUXEQ { 3 , 3 , K) +AUXEQ ( 3 , 4 , X) ) *AMLTFC 
ELSE 

AUXMAT { X) =AUXEQ { 3 , 3 , K) * AMLTFC+A UXEQ { 3 , 4 , X) 

ENDIF 

AUXEQ {3,7, K) =AUXEQ ( 3 , 1 , K) +AUXEQ ( 3 , 2 , K) +AUXMAT ( K) +AUXEQ ( 3 , 5 , X) + 

* AUXEQ (3, 6 ,K) 

36 CONTINUE 
ENDIF 

IF (IBYB.GB.31) THEN 
ICNTW=ICNTW+1 

AUXEQ ( ICNTW, 0,1) =SUB0Y8 (0,1) * R/ ( AUXILW ( 1 , 0 , 0 ) +1 . ) 

AUXEQ (ICNTW, 3 , 1)=BUBSY8 (0,1) <» (l.-EFF(I) ) *R 
DO 40 K=l, 3 
DO 42 J~2 , NWAUX 

4 2 AUXEQ ( ICNTW, 1 , X) =AUXEQ ( ICNTW, 1 , X) -0-AUXILW ( I , J , K) * AUXILW (I , J, 0 ) 

AUXEQ ( ICNTW, 2 , K) =AUXEQ { ICNTW, 0,1) *AUXILW(I/ 1/ 0 ) * AUXILW (1 , 1 , K) 

C ASSUMES 30% BRINE 

AUXEQ ( ICNTW , 5, K) ~ ( AUXEQ ( ICNTW , 3 , 1 ) • 2 . ) * AUXILW (I , 1, K) 

DO 41 J=0,6 

4 1 .AUXEQ (ICNTW, 7 , K) =AUXEQ (ICNTW, 7 , X) + AUXEQ ( ICNTW, J , K) 

40 CONTINUE 
ENDIF 

100 CONTINUE 

TANKS FOR STORED, MAKEUP , EXCESS , EVA/EXP LOST H20 SIZED USING DATABASE VALUES 

STOREW=0. 

DO 45 1=1 , NWNUM 
IF (IWATER(l) (NE.0) GOTO 45 
IF (I.EQ.l) STORETJ=STOREW+COND 
IF (I.EQ.2) ST0REW=8T0REW+REDH20 
IF (I.EQ.3) STOREW=BTOREW+HYGIENLD 
IF (I.EQ.4) STOREW“STOREW+CLOTHLD 
IF (I.EQ.5) STOttEW=8TOREW+DRINLD 
IF (I.EQ.6) ST0REW=8T0REW+LxBHWLD 

45 CONTINUE 

IF ( STORE'S? . EQ . 0 • ) GOTO 49 
ICNTW— ICNTW+1 
AUXEQ ( ICNTW, 3,1) =8TOREW*R 
DO 46 K=l,3 

AUXEQ ( ICNTW, 5 , X) =AUXEQ (ICNTW, 3,1) *WRSAUX ( 1 , K) 

AUXEQ (ICNTW, 7 , K) =AUXEQ ( ICNTW, 3 , K) + AUXEQ ( ICNTW, 5 , K) 

46 CONTINUE 

49 AUXEQ (10,3,1)- OTHERS*R 
AUXEQ (11, 0,1)= MAKEUPR 
AUXEQ (12, 3,1)= EXCEOSR 
DO 50 K=l,3 

AUXEQ ( 10 , 5 , K) = AUXEQ (10, 3,1) *WRSAUX(1,K) 

AUXEQ ( 10 , 7 , K) = AUXEQ ( 10 , 3 , K) +AUXEQ { 10 , 5 , K) 

AUXEQ (1X,5,K)= AUXEQ (11,0,1) *WRSAUX(1,K) 

AUXEQ (11,7,K)= AUXEQ(11,0,X) +AUXEQ ( 1 1 , 5 , K ) 

AUXEQ (12 , 5 , X) = AUXEQ (12, 3,1) *WRSAUX(1,K> 


AUXEP(12,7 .K)u AUXEQ(12,3,XHAUXEQ(12,5,K) 

50 CONTINUE 

CLOTHW=DEfi IGN (34) *N 
CLOT!rv=nE8IGN(3S) *N 
DAYS— DESIGN ( 36 ) 

IP {DESIGN ( 30 ) .EQ.O.) DAY8=R 
AUXEQ (13,1,1)= DESIGN (46) 

AUXEQ(13,1,2)= DESIGN(47) 

AUXEQ(13,1,3)= DESIGN ( 4fl ) 

AUXEQ (13, 4,1)= CL0THW*DAY8 
AUXEQ (13, 6,2)= CLOTHV*DAYS 

AUXEQ (13,7,1)= AUXEQ (13,4,1) +AUXEQ (13,1,1) 

AUXEQ (13,7,2)= AUXEQ (13,6,2) + AUXEQ (13,1,2) 

AUXEQ (13, 7,3)= AUXEQ ( 13 , 1 , 3 ) 

C 

DI3HWGHT=0 . 

DISHV=0. 

AUXEQ ( 14 , 1, 1) =OESIGN (49) 

AUXEQ (14,1,2) =DE3IGN ( 50 ) 

AUXEQ (14,1,3) =DE8IGN (51) 

IP (DESIGN(31) .EQ.O. ) THEN 
DISHWGHT=DE8IGN (38 ) *N 
DISHV=DESIGN (39) *N 
AUXEQ (14,4,1)= DI8HWGHT*R 
AUXEQ (14,6,2)= DISHV*R 
ENDIP 

AUXEQ (14,7,1)= AUXEQ (14,4,1) +AUXEQ (14,1,1) 

AUXEQ (14, 7,2)= AUXEQ ( 14 , 6 , 2 ) +AUXEQ ( 14 , 1,2) 

AUXEQ (14,7,3)= AUXEQ ( 14 , 1 , 3 ) 

C 

TRASHW=DE£IGN(40) *N+DI3HWGHT 
AUXEQ (15,1,1) =DESIGN (43) 

AUXEQ (15, 1,2 )=DE8IGN(44 ) 

AUXEQ (15,1,3) =DS8IGN (45) 

AUXEQ (15,4 , 1) =TRASHW*R 
RAT I 0=1 . 0 

IP (DESIGN(43) .GT.O . ) RATIO=DESIGN ( 42 ) 

TRASHV=RATIO* (DESIGN(41) *N+DTSHV) 

AUXEQ (15,6,2) =TRA8HV*R 

AUXEQ (15,7,1) =AUXEQ (15,4,1) +AUXEQ (15,1,1) 

AUXEQ (15,7,2) =AUXEQ (15,6,2) +AUXEQ (15,1,2) 

AUXEQ (15,7,3) =AUXEQ (15,1,3) 

C 

DO 60 K=1 , 3 

AUXEQ (1C, 0 ,K)=AUXEQ (1,0 ,K) +AUXEQ(2 ,0 ,K) +AUXEQ (3 ,0 ,K) 
AUXEQ ( 1 6 , 1 , K ) =AUXEQ ( 1 , 1 , K ) +AUXEQ (2 , 1, K) +AUXEQ ( 3 , 1 , K ) 
AUXEQ (16 , 2 , K) =AUXEQ (1,2 , K) +AUXEQ (2 , 2 , K) +AUXEQ ( 3 , 2 , K) 
AUXEQ ( 16 , 4 , K) =AUXEQ ( 1 , 3 , K) +AUXEQ (1,4, K) +AUXEQ ( 2 , 3 , K) + 

* AUXEQ ( 2 , 4 , K) + AUXMAT ( K ) 

AUXEQ (16,6 , K> =AUXEQ ( 1 , 5 , K) +AUXEQ ( 1 , 6 , K) +AUXEQ (2 , 5 , K) + 

* AUXEQ (2,6, K) +AUXEQ ( 3 , 5 , K) +AUXEQ ( 3 , 6 , K) 

AUXEQ (16,7, K) =AUXEQ { 1 , 7 , K) +AUXEQ ( 2 , 7 , K) + AUXEQ ( 3 , 7 , K) 

DO 61 J=0 , 7 
DO 6E 11=4 , ICNTW 

62 AUXEQ ( 17 , J , K) =AUXEQ ( 17 , J , K) +AUXEQ ( XI , J , K) 

C INITIAL WATER LOAD 

AUXEQ (17,0 , 1) =H20L0AD-0THERLD- FECAL 

AUXEQ ( 17 , J , K) =AUXEQ ( 17 , J , K) +AUXEQ ( 10 , J , K) +AUXEQ ( 11 , J , X) + 

* AUXEQ ( 12, J,K) 

61 CONTINUE 


AUXEQ (17,0, K) sAUXEQ ( 17 , 0 , F ) +AUXEQ ( l3 , 0 , K) + AUXEQ ( 14 , 0 , K) + 

* AUXEQ ( 15 , 0 , X) 

AUXEQ { 17 , 1 , K) -AUXEQ ( 17 , 1 , K) +AUXEQ <13,1 , X) +AUXEQ ( 1 4 , 1 , K J + 

* AUXEQ (15, 1,K) 

AUXEQ < 17 , 2 , K) =AUXEQ ( 17 , 2 , X) +AUXEQ ( 13 , 2 , K) +AUXEQ < 14 , 2 , K) + 

* AUXEQ (15, 2, K) 

AUXEQ (17,3 , K) =AUXEQ { 17 , 3 , K) +AUXEQ ( 13 , 4 , K) +AUXEQ ( 14 , 4 , K) + 

* AUXEQ <13, 4, X) 

AUXEQ (17,5 , X) =AUXEQ (17,5 , K) +AUXEQ ( 13 , 6 , K) +AOXEQ ( 14 , 6 , K) + 

* AUXEQ (15 ,<S,K) 

AUXEQ (17 , 7 , K) =AUXEQ ( 17 , 7 , K) +AUXEQ (13,7, K) +AUXEQ ( 14 , 7 , K) + 

* AUXEQ ( 15 , 7 , K) 

AUXEQ (18,0, X) =AUXEQ ( 16 , 0 , X) +AUXEQ ( 17 , 0 , K) 

AUXEQ ( 18 , 1 , K) --AUXEQ ( 16 , 1 , X) +AUXEQ ( 17 , 1 , X) 

AUXEQ ( 18 , 2 , X) =AUXEQ ( 16 , 2 , K) +AUXEQ ( 17 , 2 , X J 
AUXEQ (18,4 , X) =AUXEQ ( 16 , 4 , X) +AUXEQ ( 17 , 3 , X) 

AUXEQ (18 , 6 , K) -AUXEQ ( 16 , 6 , X) +AUXEQ ( 17 , 5 , X) 

AUXEQ (18 , 7 , K) =AUXEQ ( 16 , 7 , X) +AUXEQ ( 17 , 7 , X) 

60 CONTINUE 
RETURN 
END 
C 

SUBROUTINE DEflGNfl 
REAL N,M 

PARAMETER (NDSGN=S6 , NSSDAT=30 , NBYS=50 , NSUB0Y8=35 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER <NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (ND8GN) , S8DATA (NSSDAT ,NSYS ) , 

* SUBSYS (05 N8UBS YQ , NNUM) , N , R, RE , M, ITYPE ( NNUM , NITYP) , I WATER ( NWNUM ) 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX , 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ASS AUXQ< 30, NAAUX) , WR8AUXQ (NWNUM, 0 I NWAUX) , 

* AUXILA (NNUM, NAAUX, 0:3) ,AUXILW (NNUM, 0 S NWAUX, 0 : 3 ) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAR) , XFLOW (NCOMPAR, NCOMPAR) , 

* SWATER ( NAAUX , NAAUX ) , PS WATER ( NAAUX ) , LFLOW ( NCOMPAR , NCOMPAR ) 
CHARACTER* 6 ADUMP 

C N, NUMBER OF CREW 
DESIGN ( 1) =6 , 

C R, RESUPPLY INTERVAL (DAYS) 

DESIGN ( 2) =90. 

C M, MISSION DURATION (YEARS) 

DESIGN ( 3 ) =10 . 

C N2 CABIN PARTIAL PRESSURE ( PSIA) 

DESIGN ( «)=11.50 

C 02 CABIN PAP-TI7tL PRESSURE ( PSIA) 

DESIGN ( 5 ) =3 , 20 
C CABIN LEAKAGE (LB/DAY) 

DESIGN ( 6 ) =5 . 0 
C AIR LOCX GAS LOSS (LB/DAY) 

DESIGN ( 7 ) =3 . 0 
C METABOLIC 02 (LB/MAN-DAY) 

DESIGN ( 8) =1.84 
C METABOLIC C02 (LB/MAN-DAY) 

DESIGN ( 9) =2. 20 

C RE, EVA MAN— HOURS/ RESUPPLY INTERVAL ( 102 9 . ) 

DESIGN (10)=0.0 
C EVA 02 (LB/MAN-EOUR) 

DESIGN (11) =0 .153 
C EVA C02 (LB/MAN-HOUR) 

DESIGN ( 12 ) =0 .185 



c EVA H20 ( LB/MAN- HCHJR ) (1.21) 

DESIGN (13) =0.00 

C EVA WATER LOST ( LD/HAN-HOUR) (0.25) 

DESIGN (14)— 0.00 
C DRINKING H20 (LH/MAN-DAY) 

DESIGN (15)— 4.09 
C FOOD PREP H20 (LB/ MAN-DAY) 

DESIGN(ie) - 1 . 64 
C H20 IN FOOD (LB/MAN- DAY) 

DESIGN (17)— 1. 10 

C METABOLIC H20 PROD (LB/MAN-DAY) 

DESIGN ( 18 ) =0 . 7 6 

C HYGIENE LATENT H20 ( LB/MAN-DAY) 

DESIGN ( 19 )=0 .96 

C FOOD PREP LATENT H20 ( LB/MAN-DAY) 

DESIGN (2 0 ) =0 . 0 6 

C EXPERIMENTS LATENT H20 ( LB/KAN- DAY) (1.0) 

DESIGN (2 1 ) =0 . 00 

C LAUNDRY LATENT H20 ( LB/MAN-DAY) 

DESIGN ( 22 ) =0 .13 

C DISHWASHER LATENT H20 ( LB/MAN-DAY ) 

DESIGN (23)— 0.036 
C SWF. AT & RESP H20 ( LB/MAN-DAY) 

DESIGN (24)~4.02 
C URINE H20 (LB/MAN-DAY) 

DESIGN (25 ) =3 . 3 1 
C URINAL FLUSH H20 (LB/MAN-DAY) 

DESIGN (26) =1 .09 
C FECAL H20( LB/MAN-DAY) 

DESIGN (27) =0.20 
C HAND WASH H20 ( LB/MAN-DAY) 

DESIGN ( 28 ) =4 . 00 
C SHOWER H20( LB/MAN-DAY) 

DESIGN (2 9) =8 . 0 0 

C CLOTHES WASH H20 ( LB/MAN-DAY) 

DESIGN (30) =27 . 50 
C DISHWASHER H20 (LB/MAN-DAY) 

DESIGN (31) =7 . 63 

C EXPERIMENT H20 (LB/MAN-DAY) (1.0) 

DESIGN (32 ) =0 .00 

C EXPERIMENT H20 LOST ( LB/MAN-DAY) 

DESIGN (33 ) =0 . 00 

C CLOTHING WEIGHT (LB/MAN-DAY) (2.19) 

DESIGN (34) =G . 00 

C CLOTHING VOLUME (FT3/MAN- DAY) (0.72) 

DESIGN ( 3 5 ) =0 . 00 

C RESUPPLY CLOTHING WITH CLOTHES WASH tDAYS) (14) 
DESIGN (36)— 14 .0 
C UNUSED 

DESIGN (37) =0.0 

C RESUPPLY DISHES W/O DISHWASH (LB/MAN-DAY) 

DESIGN (38) =0 .00 

C RE8UPPLY DISHES VT/O DISHWASH ( FT3/MAN-DAY) 

DESIGN ( 3 9 ) =0 . 0 0 

C TRASH WEIGHT (LB/MAN-DAY) (1.0) 

DESIGN (40 ) =0 . 00 

C TRASH VOLUME (FT3/MAN-DAY) (0.1) 

DESIGN (41)=0.00 

C TRASH COMPACTION RATIO ( FRACTION OF ORIGINAL VOL) 
DESIGN ( 4 2 ) =0 . 00 



C TRASH COMPACTOR WEIGHT ( LB) 

DESIGN (43)”0.00 
C TRASK COMPACTOR VOLUME (FT3) 

DESIGN ( 44 ) =0 . 00 

C TRASH COMPACTOR POWER (WATTS) 

DESIGN ( 4 S.)=0 . 00 
C CLOTHES WASHER WEIGHT (LD) 

DESIGN ( 4 4 ) =:0 . 00 

C CLOTHES WASHER VOLUME (FT3) (12.) 

DESIGN (47}=0.00 
C CLOTHES WASHER POWER (WATTS) 

DESIGN ( 48 ) “0 .00 

C DISHWASHER WEIGHT (LD) (100.) 

DESIGN ( 49 ) =0 . 00 

C DISHWASHER VOLUME (FT3) (12.) 

DESIGN (50)=0. 00 

C DISHWASHER POWER (WATTS) (1200.) 
DESIGN (51)— 0.00 

C POWER PENALTY, LIGHT SIDE { LB/WATT) 
DESIGN (52)=0.371 

C POWER PENALTY, DARK SIDE ( LB/ WATT) 
DESIGN (53) =1.36 6 

C A VO HEAT REJECTION PENALTY ( LB/WATT) 
DESIGN ( 5 4 ) ~0 . 2 00 

C TIME IN SUNLIGHT PER ORBIT (MIN) 
DESIGN (S5)— GO.O 

C TIME IN DARKNESS PER ORBIT (MIN) 
DESIGN (56) =34 . 5 
RETURN 
END 


C 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE OSDATS 
REAL N,M 

PARAMETER (ND8GN:=5 6 ,N8SDAT=30 , N8YS=50 , NSUBSYS-3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYF=4 } 

PARAMETER (NCOMrAR-20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT , NSY8 ) , 

* SUBSYS { 0 I NSU8SYS , NNUM) , N, R, RE , M, ITYPE (NNUM, NITYP ) , IWATER (NWNUM) , 

* TOTALS { NS UB SYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ< 30, NAAUX) , WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA (NNUM, NAAUX, 0:3) ,AUXILW (NNUM, 0 : NWAUX, 0 : 3 ) , 

* GROUP, IUNIT, JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER( NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW ( NCOMPAR , NCOMPAR) 

COMMON /FILE/ FNAME(NSYS) 

CHARACTER* 12 FNAME 
CHARACTER* 6 ADUMP 


KEY 

ISYS=NO. OF SUBSYSTEM (1-50) 


SSDATA ( 
SSDATA ( 
SSDATA ( 
SSDATA ( 
SSDATA ( 
SSDATA ( 
SSDATA ( 
SSDATA ( 
SSDATA ( 


1 , 1SYS) S3 
2 ,ISY8) — 
3 , ISYS } =s 
4 , ISYS ) “ 
5, ISYS) = 
6,I8YS)= 
7 , ISYS ) ss 
8 , ISYS) = 
9 , ISYS) = 


AVERAGE POWER REQUIRED, DAYLIGHT SIDE OF ORBIT (WATTS) 
AVERAGE POWER REQUIRED, NIGHT SIDE OF ORBIT (WATTS) 
HEAT REJECTION (WATTS) 

INITIAL FLIGHT UNIT (LB) 

INITIAL FLIGHT UNIT (FT3 ) 

SPARES OVER RESUPPLY INTERVAL (LB) 

SPARES OVER RESUPPLY INTERVAL (FT3 ) 

CONS UMMAB LE S OVER RESUPPLY INTERVAL (LB) 

CONSUMMA3LES OVER RESUPPLY INTERVAL (FT3 ) 



o o o 


C 

C 

c 

c 

c 

c 

c 

G 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


80 DATA (10, ISYS):: 
00 DATA (11,I8Y£)=: 
0 8DATA ( 12 , IS Y8 ) = 
SODATA 1 13 , ISYS ) =: 
SO DATA ( 14 , ISY8 ) = 
SODATA {19 , ISYO) s 
SODATA { 16 , IS YS ) a 
SODATA ( 17 , ISYO } a 
SSDATA ( 10 , ISYO ) rs 
SODATA (19,ISY8)s 
SSDATA {20 , IB YS ) = 
SB DATA (21,1SY8)= 
SSDATA ( 22 ,ISYS ) = 
SSDATA(23,I8YS)= 
SSDATA (24, ISYO ) = 
SSDATA (25 , ISYS ) = 
SSDATA (26,ISYS)= 
SSDATA(27 ,I8Y8}= 
SSDATA (20 ,ISY8)ss 
SSDATA (29,ISY8)= 
SSDATA (30, IS YS)= 


RELIABILITY (l TO 8) 

TECHNOLOGY READINESS (1 TO 8) 

PACINO TECHNOLOGY PROBLEMS (1 TO 8) 

SAFETY INDEX (i TO 8) 

MAINTAINABILITY INDEX (1 TO 8) 

COMMONALITY INDEX (1 TO 8) 

MAINTENANCE TIME OVER RESUPPLY INTERVAL (HR) 

UNUSED 

LB/DAY 02 USED TO SIZE SYSTEM (02 GEN) 

LB/DAY C02 USED TO SIZE SYSTEM ( C02REM, C02 RED) 

LB/DAY H20 USED TO SITE SYSTEM (WRS) 

H2 USED OVER RESUPPLY INTERVAL ( LBM) -EDC, C02 RED 

02 USED OVER RESUPPLY INTERVAL (LBM) -EDC 

H20 PRODUCED OVER RESUPPLY INTERVAL ( LBM) -C02RED, C02REM 

C PRODUCED OVER RESUPPLY INTERVAL ( LBM) -BOSCH, 8AB+CH4 DIS 

CH4 PRODUCED OVER RESUPPLY INTERVAL ( LBM) -SABATIER 

C02 NOT REACTED OVER RESUPPLY INTERVAL ( LBM) -SABATIER 

SIZING FACTOR FOR WEIGHTS 

SIZING FACTOR FOR VOLUMES 

SIZING FACTOR FOR POWERS 

E, PROCESS EFFICIENCY 


SIZING FACTORS (DELTA SIZE/REF SIZE) / ((DELTA LB/DAY) / (REF LB/DAY)) 
NOTE: CHANGING REFERENCE SIZE CHANGES SIZING FACTOR 


02 GENERATION 


21. STATIC FEED-WEO 


ISYS— 21 

FNAME ( ISYS ) = • SF-WES * 
8SDATA< 1 , ISYS ) — 1150. 
SSDATA ( 2 , ISYS ) — 1150. 
SSDATA ( 3,ISY8)s 133. 
SSDATA ( 4 , ISYS ) = 118. 
SSDATA ( 5 , ISYS ) — 1.6 
SSDATA ( 6 , ISYS ) — 0.0 
SSDATA ( 7, ISYS) = 0.0 
SSDATA ( 8,ISYS)= 0.0 
SSDATA ( 9 , ISYS) = 0.0 
SSDATA (10, IS YS)= 6. 
SSDATA ( 11, ISY - 6 . 
SSDATA (12, ISYS )= 6. 
SSDATA (13, ISYS)— 6. 
SSDATA ( 14, ISY8)= 6. 
SSDATA (15, ISYS) =: 4. 
SSDATA (16,ISY8)= 0.3 
SSDATA (18, ISYS) = 11.04 
SSDATA (27 , ISYS) = 0.666 
SSDATA (28, ISYO )= 0.685 
SSDATA (2 9, ISYS )= 0.952 
SSD31TA (30 , ISYS ) = 1.0 


22. SOLID POLYMER-LIQUID FEED 


ISYS=22 

FNAME (ISYS) =• SOLID POL-LF* 
SSDATA ( 1 , ISYS ) = 1330. 
SSDATA ( 2 , ISYS) = 1330. 
SSDATA ( 3, ISYS)- 200. 
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SSDATA ( 4 , 10YB ) = 108. 
BSDATA ( 5 / ISYS ) = 2.55 
SSDATA ( 6 , IQYB ) — 0.0 
bSDATA ( 7,I3YB)= 0.0 
SSDATA ( 8 , XflYB ) — 0.0 
SSDATA ( 9 , IS YS ) — 0.0 
SSDATA (10, ISYS)— 4.0 
3SDATA (11,IBY8)= 5.0 
SSDATA (13, ISYS) = 1.0 
BSDATA ( 13, ISYS)= 6.0 
SSDATA ( 14 , ISYS) = 5.0 
SSDATA ( 15 , I SYS ) = 4.0 
SSDATA ( 16, ISYS)= 0.5 
SSDATA (18, ISYS )=. 11.04 
SSDATA (27,ISYS)s 0.305 
B8DATA(2B, I8Y9)= 0.296 
SSDATA (29,ISYS)= 0.955 
SSDATA (30,ISYS)= 0.9 

23. SOLID POLYMER-STATIC FEED 
I8YB=23 

FNAME (ISYS) =' SOLID POL-SF' 
SSDATA ( 1,ISYS)= 1250. 
SSDATA ( 2 , ISYS ) = 1250. 

S S DATA ( 3 , ISYS ) - 240. 
SSDATA ( 4, ISYS) = 82.0 
SSDATA ( 5 , ISYS ) — 1.5 
SSDATA { 6, ISYS)- 0.0 
SSDATA ( 7 , ISYS ) s 0.0 
SSDATA ( 8 , ISYS ) = O.0 
SSDATA ( 9, ISYS)— 0.0 
SSDATA (10, ISYS )= 4.0 
SSDATA ( 11 , ISYS ) = 4.0 
SSDATA (12, ISYS)— 6.0 
SSDATA (13, ISYS) = 6.0 
SSDATA <14, ISYS) = 6.0 
SSDATA (15, ISYS )= 4.0 
BSDATA ( 16, ISYS) a 0.3 
SSDATA \18,ISYS)= 11.04 
SSDATA (27 , ISYS ) = 0.454 
SSDATA(2B,ISYS)= 0.609 
SSDATA (2 9, IS YS)=: 0.964 
SSDATA (30, ISYS )= 0,9 

24. 02 STORAGE 
IGY3=24 

FNAME ( ISYS ) s » 02 STORAGE* 
SSDATA ( 1, ISYS) = 0.0 
SSDATA ( 2 , ISYS ) = 0.0 
SSDATA ( 3,ISY3)= 0.0 
SSDATA ( 4 , ISYS ) — 0.0 
SSDATA ( 5, ISYS)- 0.0 
SSDATA ( 6, ISYS) = 0.0 
SSDATA ( 7, ISYS) = 0.0 
SSDATA ( 8,ISYS)= 0.0 
SSDATA ( 9 , ISYS ) s 0.0 
S S DATA (10, ISYS)— 0.0 
SSDATA (11, ISYS) = 0.0 



o o o 


fl8DATA<i2,IGY8)= 0.0 

5 S DATA (13 , 1 0 Y S ) = 0.0 
SSDATA ( 14 , ISYS ) = 0.0 
SSDATA (15, IS Y8)= 0.0 

6 8 DATA (16,ISY8)= 0.0 
SSDATA ( 18 , ISYS) = 11.04 
8SDATA(27,ISYS)= 1.0 
SSDATA(28,ISY8)= 1.0 
SSDATA (29 / ISYS ) = 1.0 
SSDATA (30,iSY8)= 0.0 

C CO 2 REMOVAL 
C 

C 1. EDO 
C 

ISYS- 1 

FNAME(I8Y8)s'EDC' 

SSDATA ( 1,I8YS)= 80. 

8 8 DATA ( 2 , I9Y8 ) — 80. 

SSDATA ( 3,I0YS)= 360. 

SSDATA ( 4,IOYS)= 115.0 
8 S DATA ( 5,ISYB)= 3.1 
SSDATA ( 6,ISYS)= 3.8 
SSDATA ( 7, ISYS)- 0.23 
8 8 DATA { 8,I8YS)= 0.0 
SSDATA ( 9 , X8YS ) — 0.0 
SSDATA (10, ISYS) = 5.0 
SSDATA (11, ISYS) = 6.0 
SSDATA (12, ISYS )= 6.0 
SSDATA (13, ISYS )= 4.0 
SSDATA ( 14 ,I6Y8)= 4.0 
SSDATA (15, ISYS )= 4.0 
SSDATA { 16 , ISYS) — 2.40 
SSDATA (19, IS YS)= 13.2 
C 0.0 = USE STOICHIOMETRIC VALUE (58.5) 
SSDATA (21, ISYS ) ~ 0.0 
C 0.0 = USE STOICHIOMETRIC VALUE (540.) 

SSDATA (22, ISYS )= 0.0 
C 0.0 - USE STOICHIOMETRIC VALUE (540.) 
SSDATA (23, ISYS)— 0.0 
OQDATA(27,ISYS)= 0.643 
8SDATA(28 f ISYS) = 0.516 
8SDATA(29,I8YS) = 0.500 
SSDATA (30, ISYS) = 1.0 

2 . SAWD 

ISY8= 2 

FNAME (ISYS) =« SAWD' 

SSDATZi ( 1 , ISYS ) — 780. 

SSDATA ( 2, ISYS) = 780. 

SSDATA ( 3 , ISYS ) =s 86‘J. 

SSDATA ( 4 , ISYS) = 165.0 
SSDATA ( 5 , ISYS ) = 13.3 
SSDATA ( 6 , ISYS) = 3.8 
SSDATA ( 7 , ISYS ) = 0.15 
SSDATA \ 8, ISYS) = 0.0 
SSDATA ( 9 , ISYS) ~ 0.0 
SSDATA (10, ISYS )= 4.0 
SSDATA (11,ISYF)~ 4.0 
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83DATA ( 12 , ISYS) = 4.0 
SSDATA (13, ISYS) = 4.0 
SSDATA ( 14 , ISYS ) = 4.0 
88DATA(15, iavs)= 1.0 
08 DAT A (16,ISYfl)= 1.00 
8 8 DATA (19,I8Y3)= 13.2 
8 S DATA (Z3,ISY3)= 5184.0 
GSDATA(27 ,XSYS) = 0.667 
88 DATA ( 2 8 , ISYS ) =: 0.722 
S3DATA(29, ISYS)= 0.718 
8 8 DATA (30,ISYS)= 1.0 

3. HYDROPHOBIC MOLE SIEVE 
ISYS= 3 

FNAME (ISYS) =' HYDRO MOL 8V' 
8SDATA ( 1,ISY8)= 200 . 
S8DATA ( 2, ISYS)- 200. 

8 8 DATA ( 3, ISYS)- 200. 
SSDATA ( 4 , ISYS) = 155.0 
S8DATA( 5 , ISYS ) — 9.0 
88 DATA ( 6,ISYS)= 0.0 
SSDATA ( 7, ISYS)- 0.0 
SSDATA ( 8,ISYS)= 0.0 
SSDATA ( 9, ISYS) = 0.0 
SSDATA (10, ISYS )= 1 . 0 
SSDATA (11, ISYS )= 1.0 
SSDATA (12, ISYS )= 2.0 
SSDATA (13, ISY8)= 4.0 
SSDATA (14, ISYS)— 4.0 
SSDATA ( 15 , ISYS ) s 4.0 
SSDATA (16, ISYS )= 1.0 
SSDATA ( 19 , ISYS ) — 13.2 
SSDATA(23,ISYS)= 0.0 
SSDATA(27 , ISYS) = 0.710 
SSDATA ( 28 , ISYS) — 1.0 
SSDATA (29 , ISYS) = 0.600 
SSDATA ( 3 0,ISYC)= 1.0 

4. LIOH 
ISYS= 4 

FNAME (ISYS) “'LIOH* 

SSDATA ( 1 , ISYS ) = 1. 

SSDATA ( 2 , ISYS ) = 1. 

SSDATA ( 3,ISYS)= 210. 
SSDATA ( 4 , ISYS ) — 1784.0 
SSDATA ( 5 , ISYS ) = 75.2 
SSDATA < 6 , ISYS ) = 0.0 
SSDATA ( 7, ISYS)- 0.0 
SSDATA ( 8,ISYS)=: 1744.4 
SSDATA ( 9 , ISYS ) — 69.1 
SSDATA (10, ISYS) = 8.0 
SSDATA(11,ISYS)= 8.0 
SSDATA (12, ISYS )= 8.0 
SSDATA (13,ISYS)= 8.0 
SSDATA (14, ISYS) = 6.0 
S3DATA(15,ISYS)= 1.0 
SSDATA(16,ISYS)= 60.0 
SSDATA (19, ISYS) = 13.2 
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SSDATA (23 » ISYG ) = 465.0 
B 8 DATA (27, ISYS)— 1.0 
SSDATA (28 , IBYS ) = 1.0 
8 8 DATA (29, ISYS ) — 1.0 
SSDATA (30 , ISYS) — 1.0 

5. POUR BED MOLE SIEVE 
ISYB= 5 

PNAME (IBYS) =:• 4 BED MOL SV' 
SSDATA ( 1 , ISYS) s 0.0 
SSDATA ( 2, ISYS) = 0.0 
SSDATA ( 3 , ISYS ) ~ 0.0 
SSDATA ( 4, ISYS) — 0.0 
SSDATA ( 5 , ISYS ) — 0.0 
SSDATA ( 6 , ISYS } “ 0.0 
SB DATA ( 7, ISYS) » 0.0 
SSDATA ( 0 , ISYS ) — 0.0 
SSDATA ( 9 / ISYS ) — 0.0 
SSDATA ( 10, ISYS ) = 0.0 
SSDATA ( 11/ ISYS ) = 0.0 
SSDATA ( 12 .ISYS) - 0.0 
SSDATA (13, ISYS )= 0.0 
SSDATA ( 14 , ISYS) s 0.0 
SSDATA <15, ISYS )- 0 „ 0 
SSDATA (16,I3YS)= 0.0 
SSDATA (19, IS Y3)= 13.2 
SSDATA (23, ISYS )= 0.0 
SSDATA (2? , ISYS) = 1.0 
SSDATA (20, ISYS )= 1.0 
SSDATA (2 9, ISYS 5= 1.0 
SSDATA (30, ISYS)- 1.0 

6. 8KYLAB MOLE SIEVE 
ISYS= 6 

FNAME (ISY8) SKLAB MOL SV 
SSDATA ( 1, ISYS)— 0.0 
SSDATA ( 2,ISYS)= 0.0 
SSDATA ( 3, ISYS) s 0.0 
SSDATA ( 4 , ISYS) s 0.0 
SSDATA ( 5 , ISYS ) s 0.0 
SSDATA ( 6 , ISYS) = 0.0 
SSDATA ( 7 , ISYS ) = 0.0 
SSDATA ( 8 , ISYS) — 0.0 
SSDATA ( 9,ISYS)= 0.0 
SSDATA (10, ISYS )= 0.0 
SSDATA (11, IBYS) is 0.0 
SSDATA (12, IBYS )= 0.0 
SSDATA (13, ISYS)=: 0.0 
SSDATA (14, ISYS )s 0.0 
SSDATA ( IS, IS YS)= 0.0 
SSDATA (16, I8YS)= 0.0 
SSDATA (19, ISYS )= 13.2 
SSDATA ( 23 , ISYS ) — 0.0 
SSDATA(27,I8Y£)= 1.0 
SSDATA ( 28 , ISYS ) = 1.0 
SSDATA ( 29 , ISYS) s 1.0 
SSDATA (30 , ISYS) = 1.0 
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C02 REDUCTION 

11. BOSCH 
ISYS— 11 

FNAME ( ISYS ) = ’ BOSCH' 

SSDATA ( 1, ISYS ) ~ 140. 

SSDATA < 2 , ISYS ) = 140. 

SSDATA ( 3,IEYS)= 170. 

SSDATA ( 4 , ISYS) — 446.0 
SSDATA ( 5 , ISYS ) « 25.5 
00 DATA ( 6,ISY8)n 108.0 
SSDATA ( 7 , ISYS) — 4.71 
SSDATA ( 8,ISY8)= 20.0 
SSDATA ( 9, ISYS) = 12.0 
SSDATA (10, ISYS )= 4.0 
SSDATA (11, ISYS )=: 4.0 
SSDATA (12, IS YS)=s 4.0 
SSDATA(13 , ISYS) = 4.0 
SSDATA (14, ISYS )= 4.0 
SSDATA ( 15 , ISYS) — 1.0 
SSDATA (16, ISYS )= 20.2 
SSDATA ( 19 , ISYS) “ 13.2 
0.0 sa USB STOICHIOMETRIC VALUE (116.1) 
SSDATA (21, ISYS) s= 0.0 
0.0 = USB STOICHIOMETRIC VALDB (1026.) 

SSDATA (2 3, ISYS)- 0.0 
0.0 = CEB STOICHIOMETRIC VALUE (331.2) 
SSDATA (2 4, ISYS )= 0.0 
SSDATA ( 26 , ISYS) = 0.0 
SSDATA ( 27 , ISYS) ■= 1.0 
SSDATA (26 , ISYS) - 1.0 
SSDATA(Z9, ZSY8)=: 1.0 
SSDATA (30, ISYS )= 1.0 

12. SABATIER 
ISYS— 12 

FNAME ( ISYS ) = • SABATIER* 

SSDATA ( 1,ISYS)= 90. 

SSDATA ( 2 , ISYS) = 90. 

SSDATA ( 3, ISYS) = 97.5 
SSDATA ( 4, ISYS)- 256.75 
SSDATA ( 5, ISYS) = 19.27 
SSDATA ( 6 , ISYS) = 64.0 
SSDATA ( 7, ISYS) = 8.35 
SSDATA ( 8, ISYS) = 5.75 
SSDATA ( 9,ISYS)= 2.4 
\ SSDATA (10, IS YS)= 5.0 

SSDATA (11, ISYS )= 5.0 
SSDATA ( 12 , ISYS) = 4.0 
SSDATA (13, ISYS )= 4.0 
SSDATA <14, ISYS )= 4.0 
SSDATA (15,I8YS)= 1.0 
SSDATA( 16 , ISYS) = 11.2 
SSDATA (19, ISYS )= 13.2 
C 0.0 = USB STOICHIOMETRIC VALUE (158.4) 
SSDATA (21, ISYS )= 0.0 
C 0.0 — USE STOICHIOMETRIC VALUE (699.3) 
. - SSDATA (23, ISYS ) — 0.0 
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c o 0 = USB STOICHIOMETRIC VALUE (316.8) 
88DATA(25,I8Y8)= 0.0 
SSDATA (26,ISY8)= 356.85 
SSDATA ( 27 , ISY8 ) — 1.0 
8SDATA ( 2 3 , ISYD ) ~ 1.0 
SSDATA (29,ISY8)- 1.0 
SSDATA (30,I8YB)= 1.0 

13. SABATIER/CH4 DISSOCIATION 

ISY8=13 

PNAHE ( ISY8) = * OABAT/CH4 DS» 

8 8 DATA ( 1 , ISY8 ) ~ 0.0 
S8DATA ( 2 , ISY8 ) — 0.0 
88DATA ( 3 , 18 Y9 ) — 0.0 
6SDATA ( 4 , ISYS) = 0.0 
68DATA ( 5, ISYS) = 0.0 
B8DATA ( 6 , I8YS ) = 0.0 
SSDATA ( 7 / ISY8 ) ~ 0.0 
8SDATA ( 8,ISYS)= 0.0 
SSDATA ( 9 / ISYS ) — 0.0 
8 8 DATA (X0,XSYS)~ 0.0 
SSDATA (11, ISYS) = 0.0 
SSDATA (12, ISYS )= 0.0 
SSDATA (13, ISYS)= 0.0 
SSDATA (14, ISYS):; 0,0 
SSDATA (15,ISYS)= 0.0 
SSDATA (16, ISYS )= 0.0 
SSDATA ( 19, ISY8):= 13.5 
SSDATA ( 21, ISYS )= 0.0 
SSDATA(23,ISYS)= 0.0 
SSDATA (24, ISYS ) =: 0.0 
SSDATA(2S,ISY3)= 0.0 
SSDATA (26,ISYS)~ 0.0 
SSDATA (27,ISYS)= 1.0 
SSDATA (28, ISYS) = 1.0 
SSDATA (29 , ISYS ) = 1.0 
SSDATA (30, ISYS) = 0.0 
C 

C WATER RECLAMATION- PHASE CHANGE 
C 

C 31. VCD 

c 

ISYS=31 

FNAME (ISYS) = 1 VCD' 

SSDATA ( 1 , ISYS ) — 214. 

SSDATA ( 2,ISYS)= 214. 

SSDATA ( 3, ISYS) = 214. 

SSDATA ( 4, ISYS)— 327.0 
SSDATA ( 5 , ISYS ) — 25.6 
SSDATA ( 6, ISYS)= 71.3 
SSDATA ( 7, ISYS) = 1.3 
SSDATA ( 8 , ISYS ) = 111.6 
SSDATA ( 9 , ISYS ) = 1.8 
SSDATA (10, ISYS) = 2.0 
SSDATA (11, ISYS) = 2.0 
SSDATA (12 , ISYS ) ~ 2.0 
SSDATA (13, ISYS )=: 4.0 
SSDATA ( 14 , ISYS) = 2.0 
SSDATA { 15 , ISYS) = 4.0 
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83/DATA ( 16 , ISYS } = 2C.0 
SSDATA (20, ISYS) = 26.1 
88 DATA (27 , I8Y0 ) = 1.0 
8 8 DATA (28 , ISYS) = 1.0 
8SDATA (29/ ISYS ) = 1.0 
88DATA (30, ISYS)- 0.96 

32. TIMES 
I8Y8-32 

FNAME (ISYS ) = • TIMES • 

88 DATA ( 1 , ISYS } = 351. 

88 DATA ( 2,I8YS)= 351. 

8 3 DATA ( 3 , I8YB ) — 351. 

8 8 DATA ( 4,ISY8)= 359.0 
8SDATA ( 5 , ISY8 ) — 20.0 
8SDATA ( 6,ISY8)= 159.14 
S 8 DATA ( 7 / ISYS) = 2.6 
8SDATA ( 8, ISYS) = 0.0 
S 8 DATA ( 9, ISYS) = 0.0 
SBDATA ( 10 , ISYS ) — 4.0 
88DATA { 11 , ISYS ) — 4.0 
SSDATA ( 12 , ISYS ) = 4.0 
8SDATA (13 , ISYS ) = 4.0 
SSDATA (14, ISYS ) = 4.0 
SSDATA (15, IS YS)= 4.0 
SSDATA (16, ISYS )= 20.0 
SSDATA (20, ISYS) = 26.4 
SSDATA (27 , ISYS) = 1.0 
SSDATA (28, ISYS)- 1.0 
SSDATA (2 9 , ISYS) = 1.0 
SSDATA (30,ISYS)= 0.939 

33. AIR EVAP 
I8YS=33 

FNAME (ISYS) =' AIR EVAP' 
SSDATA ( 1 , ISYS) = 2260. 
SSDATA { 2 , ISYS ) = 2260. 
SSDATA ( 3, ISYS)- 2260. 
SSDATA ( 4,ISYS)= 221.0 
SSDATA ( 5, ISYS) = 15.0 
SSDATA ( 6,ISY8)= 124.6 
SSDATA ( 7,ISYS)= 2.2 
SSDATA ( S , ISYS) = 16.6 
SSDATA ( 9,ISYS)= 0.28 
SSDATA (10, ISYS )= 6.0 
SSDATA ( 11 , ISYS ) = 4.0 
SSDATA ( 12 , ISYS ) = 6.0 
SSDATA (13, ISYS >= 4.0 
SSDATA (14,I8YS)= 6.0 
SSDATA (15, ISYS) = 4.0 
SSDATA (16 , ISYS) = 10.0 
SSDATA (20, IS YS)= 26.4 
SSDATA (27 , ISYS ) — 1.0 
SSDATA (28, ISYS):: 1.0 
SSDATA (29, ISYS ) = 1.0 
SSDATA (30, ISYS) = 1.0 

34. VPCAR 
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c 

ia¥E*34 

FHAME ( ISYS ) = * VPCAR • 

6 8 DATA ( 1 , Z8Y0) — 0.0 
80DATA ( 2 , ISYS)= 0.0 
SSDATA ( 3 , ISY8 ) = 0.0 
8 8 DATA ( 4 , ISY8 ) - 0.0 
S8DATA ( S , I8Y8) = 0.0 
8 8 DATA ( 6,I8YS)= 0.0 
SSDATA ( 7,ISYS)= 0.0 
SSDATA ( 9,ISYS)= 0.0 
SSDATA ( 9 , IG YS ) — 0.0 
SSDATA (10, ISYS )= 0.0 
SSDATA (11,ISYS)~ 0,0 
SSDATA ( 12 , ISYS) = 0.0 
SSDATA ( 13 , ISYS) =s 0.0 
SSDATA ( 14 , I8Y3) = 0.0 
SSDATA (15, ISYS ) =s 0.0 
SSDATA (16, ISYS )= 0.0 
SSDATA { 2 0,1 SYS )= 26.4 
8SDATA(27,ISYS)= 1.0 
SBDATA(28,I8YS)= 1.0 
SSDATA (29,ISYS)= 1,0 
SSDATA (30, ISYS ):= 0.0 
C 

C WATER RECLAMATION-NO PHASE CHANGE 

C 

C 41. MULTIFILTRATION 
C 

ISYS— 41 

FNAME (ISi'S) — • MULTIFILTRTN * 
SSDATA ( 1, ISYS) = 30. 

SSDATA ( 2 , ISYS) = 30.0 
SSDATA( 3, ISYS) = 30. 

SSDATA ( 4 t ISYS) =: 98.7 
SSDATA ( 5, ISYS)- 2.7 
SSDATA ( 6, ISYS) = 9.5 
SSDATA ( 7, ISYS) = 0.17 
SSDATA ( 8 , ISYS) — 10.9 
SSDATA ( 9 , ISYS) — C.23 
SSDATA (10, ISYS )=: 7.0 
SSDATA (11, ISYS)— 7.0 
SSDATA (12,ISYS)= 7.0 
SSDATA (13, ISYS) = 7.0 
SSDATA (14,ISYS)= 7.0 
SSDATA (15, ISYS )=: 7.0 
SSDATA (16, ISYS) = 8.00 
SSDATA (2Q,ISYS)= 72.0 
SSDATA (27, ISYS)— 1.0 
SSDATA (28, ISYS) — 1.0 
SSDATA (2 9, ISYS )= 1.0 
SSDATA (30, IS YS)= 1.0 

42. HYPERFILTRATION 

ISYS— 42 

FNAME (ISYSjss’HYPERFILTRTN* 
SSDATA ( 1 , ISYS) = 272.0 
SSDATA ( 2, ISYS) = 272.0 
SSDATA ( 3 , ISYS) — 0.0 
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32?DATA( 4 , I3Y0 ) = 460.0 
SSDATA ( 5, ISYS) = 30.8 
83 DATA ( 6 , ISYS ) = 0.0 
SB DATA ( 7,ISY3)= 0.0 
SSDATA ( 8, ISYS) = 0.0 
SSDATA ( 9 , XSYB ) — 0.0 
B8DATA(1Q, ISYS)s 0.0 
SSDATA { 11 , ISY8 ) — 0.0 
SSDATA ( 12 , ISYS ) = 0.0 
SSDATA { 13, t8Y0)= 0.0 
SSDATA (14, ISYS)* 0.0 
SSDATA (15, ISYS) =: 0.0 
SSDATA (16, ISYS )= 0.0 
SSDATA (20, ISYS) = 274.02 
SSDATA (27,I8YS)= 1.0 
SSDATA (2 8, ISYS )= 1.0 
SSDATA (29, ISYS ) — 1.0 
SSDATA (30, ISYS)-. 0.92 

43. REVERSE OSMOSIS 

ISY8-43 

FNAME (ISYS )=* REV OSMOSIS* 

SSDATA ( 1 , ISYS ) = 45.0 
SSDATA ( 2 , ISYS ) = 40.0 
SSDATA ( 3 , ISYS ) = 0.0 
SSDATA ( 4 , ISYS) = 12S.0 
SSDATA ( 5 , ISYS ) — 30.8 
SSDATA ( 6, ISYS) = 0.0 
SSDATA ( 7 , ISYS ) = 0.0 
SSDATA ( a f ISYS)= 0.0 
SSDATA ( 9 , ISYS ) = 0.0 
SSDATA (10, ISYS) = 0.0 
SSDATA (11, ISYS) = 0.0 
SSDATA (12, ISYS) = 0.0 
SSDATA (13, ISYS)- 0.0 
8SDATA ( 14 , ISYS) — 0.0 
SSDATA (15, IS YB)= 0.0 
SSLATA (16,ISY8)= 0.0 
SSDATA (2 0 , ISYS ) = 274.02 
SSDATA (27 , ISYS) ~ 1.0 
SSDATA (28, ISYS )=: 1.0 
SSDATA (29,ISY8)= 1.0 
SSDATA (30,ISYS)= 0.96 

RETURN 
END 

SUBROUTINE AUXILS 
REAL N,M 

PARAMETER (NDSGN=56 , NSSDAT=30 , N8YS=50 , NSUBSYS=3 5 , NNUM-9 , NV7NUM=6 ) 
PARAMETER ( NAAUX= 1 0 , NWAUX= 1 6 , NIT YP= 4 ) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR / ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT , NSYS ) , 

* SUBSYS ( 0 J N8UB8Y8 , NNUM) ,N,R,RE,M, ITYPE (NNUM,NITYP) , IWATER (NWNUM) , 

* TOTALS (NSUB SYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* AR8AUXQ (30, NAAUX ) , WRS AUXQ ( NWNUM , 0 : NWAUX ) , 

i * AUXILA (NNUM, NAAUX, 0 : 3 ) , AUXILW (NNUM, 0 : NWAUX, 0:3), 

T‘ / * GROUP, IUKIT,JPLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR,NCOMPAR) , 

£ X 

0 
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* 0 WATER (NAAUX . NAAUX ) , PEWATEYU NAAUX ) . LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* « AOUMP 

WATER RECLAMATION SYSTEM COMPONENT DATA 
WR8AUX<1,0)=0.0 
C TANKAGE WEIGHT (LB/LB H20) 

WRSAUX ( 1,1)= 0.2833 
C TANKAGE VOLUME (PT3/LB H20) 

WRSAUX ( 1,2)= 0.0160 
C TANKAGE POWER (WATTS/ LB H20) 

WRSAUX ( 1,3)= 0.0 
C 

WRSAUX (2,0) =0 . 0 
C PRIMARY PUMP WEIGHT (LB) 

WRSAUX ( 2,1)= 5.0 
C PRIMARY PUMP VOLUME (FT3) 

WRSAUX ( 2,2)= 0.030 
C PRIMARY PUMP POWER (WATT8) 

WRSAUX ( 2,3)= 15.0 
C 

WRSAUX (3,0) =0 . 0 
C SECONDARY PUMP WEIGHT (LB) 

WRSAUX ( 3,1)= 3.0 
C SECONDARY PUMP VOLUME (PT3 ) 

WRSAUX ( 3,2)= 0.0368 
C SECONDARY PUMP POWER (WATTS) 

WRSAUX ( 3,3)= 28.0 
C 

WRSAUX (4,0)=0,0 

C RECIRCULATION PUMP WEIGHT (LB) 

WRSAUX ( 4,1)= 1.4 
C RECIRCULATION PUMP VOLUME (FT3 ) 

WR8AUX ( 4,2)= 0.0368 
C RECIRCULATION PUMP POWER (WATTS) 

WRSAUX ( 4,3)= 10.0 
C 

WRSAUX (5,0) =0 . 0 

C AIR-H20 SEPARATOR WEIGHT (LB) 

WRSAUX ( 5,1)= 17.3 
C AIR-H20 SEPARATOR VOLUME (FT3) 

WRSAUX ( 5,2)= 0.8542 
C MR-H20 SEPARATOR POWER (WATTS) 

WRSAUX ( 5,3)= 47.0 
C 

WRSAUX (6,0) =0.0 

C BIOCIDE RESERVOIR WEIGHT (LB) 

WRSAUX ( 6,1}= 5.0 
C BIOCIDE RESERVOIR VOLUME (FT3 ) 

WRSAUX ( 6,2)= 0.2471 
C BIOCIDE RESERVOIR POWER (WATTS) 

WRSAUX ( 6,3)= 0.0 
C 

WRSAUX (7,0) =0.0 

C PRETREAT RESERVOIR WEIGHT (LB) 

WRSAUX ( 7 , 1) = 5.0 
C FRETREAT RESERVOIR VOLUME (FT3) 

WRSAUX ( 7,2) = 0.2471 
C PRETREAT RESERVOIR POWER (WATTS) 

WRSAUX ( 7,3)= 0.0 
C 


WRSAUX (G,0) =0.0 

C SPRING LOADED ACCUMULATOR WEIGHT ( LB) 

WR8AUX ( 8,1)= 0.5 

C SPRING LOADED ACCUMULATOR VOLUME (FT 3) 

WRSAUX ( 8,2)a 0.0250 

C SPRING LOADED ACCUMULATOR POWER (WATTS) 
WRSAUX ( 8,3)= 0.0 
C 

WRSAUX (9,0)30.0 
C SHUT OFF VALVE WEIGHT (LB) 

WRSAUX ( 9,1)= 1.42 
C SHUT OFF VALVE VOLUME (FT3 ) 

WRSAUX ( 9,2)= 0 . 00796 
C SHUT OFF VALVE POWER (WATTS) 

WRSAUX ( 9,3)= 0.0 
C 

WRSAUX (10,0) =0.0 
C SOLENOID VALVE WEIGHT (LB) 

WRSAUX (10,1)= 1.42 
C SOLENOID VALVE VOLUME (FT3 ) 

WRSAUX (10,2)= 0.C0796 

C SOLENOID VALVE POWER (WATTS ) -ASSUMES 5% DUTY 
WRSAUX (10,3)= 2.50 
C 

WRSAUX (11,0) =0.0 
C CHECK VALVE WEIGHT (LB) 

WRSAUX (11,1)= 0.14 
C CHECK VALVE VOLUME (FT3 ) 

WRSAUX (11,2)= 0.00110 
C CHECK VALVE POWER (WATTS) 

WRSAUX (11,3)= 0.0 
C 

WRSAUX ( 12 , 0 ) =0 . 0 
C. PREFILTER PACKAGE WEIGHT (LB) 

WRSAUX (12,1)= 9.5 
C PREFILTER PACKAGE VOLUME (FT3 ) 

WRSAUX (12,2)= 0.1700 
C PREFILTER PACKAGE POWER (WATTS) 

WRSAUX (12,3)= 0.0 
C 

WRSAUX (13,0) =0.0 

C CARBON & ION EXCHANGE WEIGHT (LB) 

WRSAUX (13,1)= 10.0 
C CARBON & ION EXCHANGE VOLUME (FT3) 

WRSAUX (13,2)= 0.2300 
C CARBON & ION EXCHANGE POWER (WATTS) 

WRSAUX ( 13 , 3 ) = 0.0 
C 

WRSAUX (14,0) =0.0 
C 12 DISPENSE/DETECT WEIGHT (LB) 

WR8 AUX (14,1)= 2.7 
C 12 DISPENSE/DETECT VOLUME (FT3) 

WRSAUX ( 14 , 2 } = 0.08 
C 12 DISPENSE/DETECT POWER (WATTS) 

WRSAUX (14,3)= 5.0 
C 

WRSAUX <15,0 >=0.0 
C SAMPLE PORT WEIGHT (LB) 

WRSAUX (15,1)= 0.1 
C SAMPLE PORT VOLUME (FT3 ) 
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WRSAUX (15,2)= 0.00401 
C SAMPLE PORT POWER (WATTS) 

WRSAUX (15,3)= 0.0 
C 

WRSAOX (16,0) =0 . 0 

C LINE/DUCT WEIGHT (LB/FT) - ASSUMES . S'*D 
WRSAUX (16,1)=: 0.4 2 

C LINE/DUCT VOLUME ( FT 3 /FT) - ASSUMES .5»D 
WRSAUX ( 16 , 2 ) = 0.00249 
C LINE/DUCT POWER (WATTS/FT) -ASSUMES . 5"D 
WRSAUX (16,3)= 0.0 
C 

C IWAT = NUMBER DENOTING TYPE OF WATER BEING RECOVERED 
C WRSAUXQ ( IWAT , 0 ) = NUMBER OF RECYCLES H20/RESUPPLY INTERVAL 
C WRSAUXQ (IWAT, 1) = NUMBER OF WATER TANKS 

C WRSAUXQ (IWAT, 2) = NUMBER OF PRIMARY PUMPL 

C WRSAUXQ (IWAT, 3) = NUMBER OF SECONDARY PUMPS 

C WRSAUXQ ( IWAT , 4) = NUMBER OF RECIRCULATION PUMPS 

C WRSAUXQ (IWAT, 5)= NUMBER OF AIR-H20 SEPARATORS 

C WRSAUXQ (IWAT, 6)= NUMBER OF BIOCIDE RESERVOIRS 

C WRSAUXQ (IWAT, 7)= NUMBER OF PRETREAT RESERVOIRS 

C WRSAUXQ (IWAT, 8)= NUMBER OF SPRING LOADED ACCUMULATORS 
C WRSAUXQ (IWAT, 9)= NUMBER OF SHUT OFF VALVES 
C WRSAUXQ (IWAT, 10)= NUMBER OF SOLENOID VALVES 
C WRSAUXQ (IWAT, 11)= NUMBER OF CHECK VALVES 
C WRSAUXQ (IWAT, 12 )= NUMBER OF PREFILTER PACKAGES 

WRSAUXQ (IWAT, 13)= NUMBER OF CARBON « ION EXCHANGERS 
C WRSAUXQ (IWAT, 14)= 7MB ER OF 12 DIOPEN8ERS/DETECTORS 
C WRSAUXQ (IWAT, 15)= UMBER OF SAMPLE PORTS 
C WRSAUXQ (IWAT, 16)= LENGTH OF LINE/DUCT (FT) 

C 

C 1. CONDENSATE QUANTITIES OF AUXILIARY EQUIPMENT 
IWAT=1 

WRSAUXQ (IWAT, 0)= 89. 

WRSAUXQ (IWAT, 1)= 2. 

WRSAUXQ (IWAT, 2)= 2. 

WRSAUXQ ( IWAT , 3)= 2. 

WRSAUXQ (IWAT, 4)= 2. 

WRSAUXQ (IWAT, 5)= 2. 

WRSAUXQ (IWAT, 6)= 2. 

WRSAUXQ (IWAT, 7)= 2. 

WRSAUXQ (IWAT, 0)= 4. 

WRSAUXQ (IWAT, 9)= 6. 

WRSAUXQ (IWAT, 10)= 30. 

V7RSAUXQ (IWAT, 11) = 2. 

WRSAUXQ (IWAT, 12)= 2. 

C ASSUMED PART OF WATER REC SYSTEM 
WRSAUXQ (IWAT, 13)= 0. 

WRSAUXQ (IWAT, 14) = 2. 

WRSAUXQ (IWAT, 15)= 2. 

WRSAUXQ (IWAT, 16)= 56. 

2. REDUCTION H20 QUANTITIES OF AUXILIARY EQUIPMENT 

(TOTALS INCLUDED WITH AIR REVITALIZATION SYSTEM) 
IWAT=2 

WRSAUXQ (IWAT, 0)= 0.0 
WRSAUXQ (IWAT, 1)= 0.0 
WRSAUXQ (IWAT, 2)= 0.0 
WRSAUXQ (IWAT, 3)= 0.0 
WRSAUXQ ( IWAT , 4 ) = 0.0 
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WR3XU/Q (IWAT, 5) = 0.0 

wrsauxq (iwat, #)- o.o 

WRSAUXQ ( IWAT , 7) = 0.0 
WRSAUXQ (IWAT, 8) = 0.0 
WR8AUXQ ( IWAT, 9) = 0.0 
WR3AUXQ ( IWAT , 10 ) = 0.0 
WR8AUXQ (IWAT, 11) = 0.0 
WRSAUXQ (IWAT, 12)= 0.0 
C ASSUMED PART OF WATER REC SYSTEM 
WRSAUXQ (IWAT, 13)" 0.0 
WRSAUXQ (IWAT ,14)" 0.0 
WRSAUXQ (IWAT, 13) - 0.0 
WRSAUXQ (IWAT, lft) = 0.0 

3. HYGIENE K20 QUANTITIES OF AUXILIARY EQUIPMENT 
IWAT— 3 

WRSAUXQ (IWAT, 0) = 89. 

WRSAUXQ (IWAT, 1 ) a 2 . 

WRSAUXQ (IWAT, 2)= 2. 

WRSAUXQ (IWAT, 3)- 2. 

WRSAUXQ (IWAT, 4)= 2. 

WRSAUXQ (IWAT, 5) = S. 

WRSAUXQ (IWAT, 6)- 2. 

WRSAUXQ (IWAT, 7) = 2. 

WRSAUXQ (IWAT, 8)= 4. 

WRSAUXQ (IWAT, 9) = 26. 

WRSAUXQ (IWAT, 10)= 28. 

WRSAUXQ (IWAT, 11)= 5. 

WRSAUXQ (IWAT, 12)= 5. 

ASSUMED PART OF WATER REC SYSTEM 
WRSAUXQ ( IWAT , I 3 ) = 0 . 

WRSAUXQ { IWAT ,14)= 2 . 

WRSAUXQ (IWAT, IS )= 2. 

WRSAUXQ (IWAT, 16)= 108. 

4. CLOTHES WASH H20 QUANTITIES OF AUXILIARY EQUIPMENT 
IWAT=4 

WRSAUXQ ( IWAT , 0)= 89. 

WRSAUXQ (IWAT, 1)= 2. 

WRSAUXQ ( IWAT , 2)= 1. 

WRSAUXQ ( IWAT , 3 ) = 0 . 

WRSAUXQ ( IWAT , 4 ) = 1 . 

WRSAUXQ (IWAT, 5)= 1. 

WRSAUXQ (IWAT, 6)= 1. 

WRSAUXQ (IWAT, 7)= 1. 

WRSAUXQ (IWAT, 8)= 2. 

WRSAUXQ (IWAT, 9)= S. 

WRSAUXQ (IWAT, 10)= 7. 

WRSAUXQ (IWAT, 11)= 1. 

WRSAUXQ (IWAT, 12)= 1. 

C SUMED PART OF WATER REC SYSTEM 
WRSAUXQ (IWAT, 13)= 0. 

WRSAUXQ (IWAT, 14)= 1. 

WRSAUXQ (IWAT, 15)= 1. 

WRSAUXQ (IWAT, 16)= 24. 

5. URINE H20 QUANTITIES OF AUXILIARY EQUIPMENT 
IWAT=5 

WRSAUXQ (IWAT, 0)= 89. 

WRSAUXQ (IWAT, 1)= 1'. 
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WRflAUXQ (/WAT, 2 ) - 0. 

WROAUXQ ( IWAT, 3) = 2. 

WRSAUXQ ( IWAT , 4 ) = 4. 

WR8 AUXQ ( IWAT , 5)= 6. 

WRSAUXQ (IWAT, 6) = 2. 

( WRflAUXQ (IWAT, 7) = 2. 

WRSAUXQ ( IWAT, 8) = 4. 

WRflAUXQ ( IWAT , 9) = 28. 

WRS AUXQ (IWAT, 10)= '0. 

WRflAUXQ { IWAT , 11} = 6. 

WRflAUXQ (IWAT, 12 )r- 8. 

WRflAUXQ (IWAT, 13 ; i. 3 
WRflAUXQ (IWAT, 14)= >. . 

WRflAUXQ (IWAT, 15)= 4. 

WRflAUXQ (IWAT, 16)= 98. 

6. D1SKWASH H20 QUANTITIES OF AUXILIARY EQUIPMENT 
IWAT=6 

WRflAUXQ (IWAT, 0) = 89. 

WRflAUXQ (IWAT, 1) = 2. 

WRflAUXQ (IWAT, 2) = 1. 

WRflAUXQ (IWAT, 3) = 0. 

WRflAUXQ (IWAT, 4} = 1. 

WRflAUXQ (IWAT, 5) = 1. 

WRflAUXQ (IWAT, «) = 1> 

WRflAUXQ (IWAT, 7)= 1. 

WRflAUXQ ( IWAT , 8) = 2. 

WRflAUXQ (IWAT, 9 ) = 5. 

WRflAUXQ (IWAT, 10)= 7. 

WRflAUXQ (IWAT, 11)= 1. 

WkhaUXQ (IWAT, iz ) = 1, 

C ASSUMED PART OF WATER REC SYSTEM 
WRflAUXQ (IWAT, 13)= 0. 

WRflAUXQ (IWAT, 14)= 1. 

WRflAUXQ (IWAT, IS) = 1. 

WRflAUXQ (IWAT, 15)= 24. 

C 

c 
c 

C AIR REVITALIZATION SYSTEM COMPONENT DATA 
C WATER PUMP WEIGHT (LB) 

ARSAUX ( 1,1)= 3.0 
C WATER PUMP VOLUME ( FT3 ) 

ARSAUX ( 1,2)= 0.04 
C WATER PUMP POWER (WATTS) 

ARSAUX ( 1,3)= 20. 

C HOT WATER H/X WEIGHT (LB) 

ARSAUX ( 2,1)= 26.2 
C HOT WATER H/X VOLUME { FT3 ) 

ARSAUX ( 2,2)= 0.25 
C HOT WATER H/X POWER (WATTS) 

ARSAUX ( 2,3)= 0.0 
C PURIFICATION DEVICE WEIGHT (LB) 

ARSAUX ( 3,1)= 1.2 
C PURIFICATION DEVICE VOLUME (FT3 ) 

ARSAUX ( 3,2)= 0.10 
C PURIFICATION DEVICE POWER (WATTS) 

ARSAUX ( 3,3)= 0.0 
C 02 COMPRESSOR WEIGHT (LB) 

ARSAUX ( 4,1)= 28.0 



C 02 COMPRESSOR VOLUME (FT 3) 

ARSAUX ( 4,2)= 0 .B 

C 02 COMPRESSOR POWER (WATTS) -MAX DUTY CYCLE 
ARSAUX ( 4,3)= 302. 

C 02 8TORAQIS TANK WEIGHT (LB) 

ARSAUX ( 5 , I ) = 39.8 
C 02 STORAGE TANX VOLUME ( FT3 ) 

ARSAUX ( 3,2)= 1.4 
C 02 STORAGE TAX. (T POWER (WATTS) 

ARSAUX ( 5,2)= 0.0 
C H2 COMPRESSOR WEIGHT (LB) 

ARSAUX ( 6,1) = 28.0 
C H2 COMPRESSOR VOLUME ( FT3 ) 

ARSAUX ( 6,2)= 0.8 

C JJ2 COMPRESSOR POWER (WATTS) -MAX DUTY CYCLE 
ARSAUX ( 6,3)= 302. 

C H2 STORAGE TANK WEIGHT (LB) 

ARSAUX { 7,1)= 124. 

C H2 STORAGE TANK VOLUME (FT3 ) 

ARSAUX ( 7,2)= 5.5 
C H2 STORAGE TANK POWER (WATTS) 

ARSAUX ( 7,3)= 0.0 
C CH4/C02 COMPRESSOR WEIGHT (LB) 

ARSAUX ( 8,1)= 0.0 
C CH4/C02 COMPRESSOR VOLUME (FT3) 

ARSAUX ( 8,2)= 0.0 

C CH4/C02 COMPRESSOR POWER (WATTS) -MAX DUTY 
ARSAUX ( 8,3)= 0.0 
C CH4/C02 STORAGE TANK WEIGHT (LB) 

ARSAUX ( 9,1)= 0.0 

C CH4/C02 STORAGE TANK VOLUME (FT3 ) 

ARSAUX ( 9,2)= 0.0 

C CH4/C02 STORAGE TANK POWER (WATTS) 

ARSAUX ( 9,3)= 0.0 

C CARBON STORAGE EQUIPMENT WEIGHT (LB) 

ARSAUX (10,1)= 0.0 

C CARBON STORAGE EQUIPMENT VOLUME ( FT3 ) 

ARSAUX (10,2)= 0.0 

C CARBON STORAGE EQUIPMENT POWER (WATTS) 

ARSAUX ( 10 , 3 ) = 0.0 

C 

C IAIR as NUMBER DENOTING TYPE OF WATER BEING PROCESSED 
C 


c 

ARSAUXQ (IAIR, 

1) = 

NUMBER 

c 

ARSAUXQ (IAIR, 

2) = 

NUMBER 

c 

ARSAUXQ (IAIR, 

3) = 

NUMBER 

c 

ARSAUXQ (IAIR, 

4) = 

NUMBER 

c 

ARSAUXQ (IAIR, 

5) = 

NUMBER 

c 

ARSAUXQ (IAIR, 

6) = 

NUMBER 

c 

ARSAUXQ (IAIR, 

7 ) = 

NUMBER 

c 

ARSAUXQ (IAIR, 

8) = 

NUMBER 

c 

ARSAUXQ (IAIR, 

9) = 

NUMBER 

c 

ARQJtl’IQ (IAIR, 

10) = 

NUMBER 


C 

C 11. BOSCH 
IAIR=11 


APSAUXQ (IAIR, 1) =2 . 
AP.SAUXQ ( IAIR, 6) =2. 
ARSAUXQ(IAIR, 7) =2. 
ARSAUXQ { IAIR , 10 ) =2 . 


OF WATER PUMPS 

OF HOT WATER HEAT EXCHANGERS 
OF PURIFICATION DEVICES 
OF 02 COMPRESSORS 
OF 02 STORAGE TANKS 
OF H2 COMPRESSORS 
OF H2 STORAGE TANKS 
OF CH4/CO* COMPRESSORS 
OF CH4/C02 STORAGE TANKS 
OF CARBON STORAGE EQUIPMENTS 
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1 2 . SABATIER 
IAIR=12 

AR0ADXQ (IAIR, 1)=2. 

ARSAUXQ { IAIR, 8) =2. 

ARSAUXQ (IAIR, 9) =2. 

13. SABATIER/CH4 DISSOCIATION 
IAIR=13 

ARSAUXQ { IAIR, 1)=2. 

ARSAUXQ (IAIR, 8) =2. 

ARSAUXQ (IAIR, 9) =2. 

ARSAUXQ ( IAIR, 10 ) =2 . 

21. STATIC FEED-WEB 
IAIR=:21 

ARSAUXQ (IAIR, 2 ) =2 . 

ARSAUXQ (IAIR, 3 ) - 2 . 

ARSAUXQ (IAIR, 4 ) =2 . 

ARSAUXQ (IAIR, 5) =2. 

ARSAUXQ (IAIR, 6) =2. 

ARSAUXQ (IAIR, 7) ~ 2 . 

27 . SOLID POLYMER - LIQUID FEED 
IAIR=:22 

ARSAUXQ (IAIR, 2 ) =2 . 

ARSAUXQ (IAIR, 3 ) = 2 . 

ARSAUXQ (IAIR, 4) =2. 

ARSAUXQ (IAIR, S ) —2 - 
ARSAUXQ (IAIR, 6) =2. 

ARSAUXQ (IAIR, 7 ) =2 . 

23. SOLID POLYMER - STATIC FEED 
IAIRSJ2 3 

ARSAUXQ (IAIR, 2 ~ 2 . 

ARSAUXQ (IAIR, 3) -2. 

ARSAUXQ (IAIR, 4 ) =2 . 

ARSAUXQ (IAIR, 5J=2. 

ARSAUXQ { I AIR , 6)=Z. 

ARSAUXQ (IAIR, 7 ) =2 . 

RETURN 

END 

SUBROUTINE SBRSGN (NWRITE) 

REAL N,M 

PARAMETER (ND8GN=56 , NSSDAT=3 0 , NSYS=50 , N8UBSYS=3 5 , NNUH=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER ( NCOMPAR=2 0 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (ND8GN) , SSDATA (NSSDAT, NSYS) , 

* SUBSY8 (0:N8UB8YS,NNUM; , N, R, RE , M, ITYPE (NNUM, NITYP) , IWATER (NWNUM) , 

* TOTALS (N8UBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 > , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ (30, NAAUX) , WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA(NNUM, NAAUX, 0:3) ,AUXILW (NNUM, 0 i NWAUX, 0 : 3 ) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , PSWATER ( NAAUX ) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* 6 ADUMP 

NREAD=5 

5 WRITE (NWRITE, 10) 

10 FORMAT (////, T2 0, *ECLSS AVERAGE DESIGN LOADS*) 


K=1 

WRITE (NWRITE, 100) K, DESIGN (K) 

100 FORMAT (T2 , 12 , T5 , ' N , NUMBER OF CREW 

* T5S , 78 . 2 ) 

K=2 

WRITE (NWRITE, 110) K , DESIGN ( K) 

110 FORMAT (T2, 12 ,T5, »R, RESUPPLY INTERVAL ( DAYS ) 

* TS5,F8.2) 

K=3 

WRITE (NWRITE, 120) K , DESIGN ( K) 

120 FORMAT (T2 , 12 ,T5, 'M, MISSION DURATION ( YEARS ) 

* T55,F8.2) 

K=4 

WRITE (NWRITE, 130) K, DESIGN (K) 

130 FORMAT (T2 , 12, T5, ' N2 CABIN PARTIAL PPESSURE ( PSIA) 

* T55 , FB . 2 ) 

K=5 

WRITE (NWRITE, 140) K, DESIGN ( K) 

140 FORMAT <T2 , 12, T5, » 02 CABIN PARTIAL PRESSURE ( PSl'A) 

* T5 5 , F8 . 2 ) 

K=6 

WRITE (NWRITE, 150) K, DESIGN ( K) 

150 FORMAT (T2, 12, T5, 'CABIN LEAKAGE (LB/DAY) 

* T55,F8.2) 

K=7 

WRITE (NWRITE, 160) K, DESIGN ( K) 

160 FORMAT (T2, 12, T5, 'AIR LOCK GAS LOS8 (LB/DAY) 

* T55,F8.2) 

K=8 

WRITE (1WRITE, 170) K, DESIGN (K) 

170 FORMAT (T2 ,12 ,T5, ’METABOLIC 02 (LB/MAN-DAY) 

* T55 , F8 c 2 ) 

K=9 

WRITE (NWRITE, 180) K , DESIGN ( K) 

180 FORMAT (T2, 12, T5, 'METABOLIC C02 (LB/MAN-DAY) 

* T55,F8.2) 

K=10 

WRITE (NWRITE, 19C) K, DESIGN (K) 

190 FORMAT (T2, 12, T5, 'RE, EVA MAN-HOURS/RESUPPLY INTERVAL 

* TS5,F8.2) 

K=ll 

WRITE (NWRITE, 200) K, DESIGN ( K) 

200 FORMAT (T2, 12, T5, 'EVA 02 ( LB/ MAN- HO UR) 

* T5S,F8.2) 

K=12 

WRITE (NWRITE, 210) K, DESIGN (K) 

210 FORMAT (T2, 12, T5, 'EVA CO 2 (LB/MAN-HOUR) 

* T55 , F8 . 2 ) 

K= 1 3 

WRITE (NWRITE, 220) K, DESIGN ( K) 

220 FORMAT (T2, 12, T5, 'EVA H20 ( LB/MAN-HOUR) 

* T55 ,F8 . 2 ) 

K“14 

WRITE (NWRITE, 230) K, DESIGN ( K) 

230 FORMAT (T2 , 12, T5 , 'EVA WATER LOST ( LB/MAN-HOUR) 

* T55,F8.2) 

K-15 

WRITE (NWRITE, 240) K, DESIGN (K) 

240 FORMAT (T2, 1 2,TS, 'DRINKING WATER ( LB/MAN-DAY) 

* T55 , F8 . 2 ) 



K=16 

WRITE (NWRITE, 250) K, DESIGN ( K) 

250 FORMAT (T2 , 12 ,T5 FOOD PREP H20 ( LB/MAN -DAY ) 

* T55 , F8 . 2 ) 

K=17 

WRITE (NWRITE ,260) K, DESIGN ( K) 

260 FORMAT (T2, 12 , T5, ' K20 IN FOOD ( LB/MAN-DAY) 

* T55 , F8 . 2 ) 

IF (NWRITE . EQ. 6) CALL DSGNIN(*5) 

275 WRITE (NWRITE, 2) 

2 FORMAT ( 4 (/)) 

K=18 

WRITE <NWRITE,270) K, DESIGN (K) 

270 FORMAT (T2 , 12 , T5 , ' METABOLIC H20 PRODUCTION ( LB/MAN-DAY) 

* T55 , FS . 2 ) 

K=19 

WRITE (NWRITE, 2 80) K, DESIGN (K) 

280 FORMAT (T2 , 12 , T5 , • HYGIENE LATENT H20 ( LB/MAN-DAY) 

* T55,F8.2) 

K=20 

WRITE (NWRITE, 290) K, DESIGN (K) 

290 FORMAT (T2 , 12 , T5 , ' FOOD PREP LATENT H20 (LB/MAN-DAY) 

* TS5,FR.2) 

K=21 

WRITE (NWRITE, 300) K, DESIGN (K) 

300 FORMAT (T2, 12, T5, 'EXPERIMENTS LATENT K20 ( LB/MAN-DAY) 

* T55,F8.2) 

K=2 2 

WRITE (NWRITE, 310) K, DESIGN ( K) 

310 FORMAT (T2, I 2, T 5, 'LAUNDRY LATENT H20 (LB/MAN-DAY) 

* T55 , F8 . 2 ) 

TT-O 1 

WRITE (NWRITE, 320) K, DESIGN ( K) 

320 FORMAT (T2, 12, T5, 'DISHWASHER LATENT H20 ( LB/MAN-DAY) 

* T55,F8.2) 

K=2 4 

WRITE (NWRITE, 330) K, DESIGN (K) 

330 FORMAT (T2, 12, T5, 'SWEAT & RESP H50 ( LB/MAN-DAY) 

* T55,F8.2) 

K— 25 

WRITE (NWRITE, 340) K, jESIGN (K) 

340 FORMAT (T2, 12, T5, 'URINE H20 ( LB/MAN-DAY) 

* T55 , F8 . 2 ) 

K=2 6 

WRITE (NWRITE, 350) K, DESIGN ( K) 

350 FORMAT (T2, 12, T5 , 'URINAL FLUSH H20 (LB/MAN-DAY) 

* T55 ,F8 . 2 ) 

K=27 

WRITE (NWRITE, 3 60) K, DESIGN (K) 

360 FORMAT (T2, 12, TS, 'FECAL H20 ( LB/MAN-DAY) 

* T55,F8.2) 

K=28 

WRITE (NWRITE, 370) K, DESIGN ( K) 

370 FORMAT (T2, 12, T5, 'HANDWASH H20 <LF/ MAN-DAY) 

* T55,F8.2) 

K=29 

WRITE (NWRITE, 380) K, DESIGN (K) 

380 FORMAT (T2, 12, T5, 'SHOWER H20 ( LB/MAN-DAY) 

* T55 , F8 . 2 ) 


WRITE {NWRITE, 390) K, DESIGN (K) 

390 FORMAT (T2 ,12,73, 'CLOTHES WASH H20 ( LB/MAN- DAY ) 

* T55 , F8 . 2 ) 

K— 3 1 

WRITE (NWRITE, 400) K,DE3IGN(K) 

400 FORMAT (T2, 12, T5, 'DISHWASHER H20 ( LB/MAN-DAY) 

* T55,F8.2) 

K=32 

WRITE (NWRITE, 410) K, DESIGN ( K) 

4 10 FORMAT (T2, 12, T5, 'EXPERIMENT H20 ( LB/MAN-DAY) 

* T55 , F8 . 2 ) 

K=3 3 

WRITE (NWRITE, 420) K, DESIGN (K) 

420 FORMAT (T2 , 12, T5, ' EXPERIMENT H20 LOST ( LB/MAN-DAY) 

* T55 , F8 « 2 ) 

K— 3 4 

WRITE (NWRITE, 430) K,DE8IGN(K) 

430 FORMAT (T2 ,12, T5, ' CLOTHING WEIGHT ( LB/MAN-DAY) 

* T55 , F8 . 2 ) 

IF (NWRITE. EQ. 6) CALL DSGNIN(*27S) 

445 WRITE (NWRITE, 2) 

K=35 

WRITE (NWRITE, 440) K, DESIGN ( K) 

440 FORMAT (T2, 12, T5, 'CLOTHING VOLUME ( FT3/MAN-DAY) 

* T55,F8.2) 

K=3 6 

WRITE (NWRITE, 450) K,DESIGN(X) 

450 FORMAT (T2, 12, T5, 'RESUPPLY CLOTHING WITH CLOTHES WASH (DAYS) 

* T55,F8.2) 

K=38 

WRITE (NWRITE, 470) K, DESIGN (K) 

47C FORMAT (T2, I 2, T5, 'RESUPPLY DISHES W/O DISHWASH (LB/MAN-DAY) 

* T55,F8.2) 

K— 39 

WRITE (NWRITE, 480) K, DESIGN (K) 

480 FORMAT (T2, 12, T5, 'RESUPPLY DISHES W/O DISHWASH ( LB/MAN-DAY) 

* T55,F8.2) 

K=40 

WRITE (NWRITE, 490) K, DESIGN (K) 

490 FORMAT (T2, 12, T 5, 'TRASH WEIGHT ( LB/MAN-DAY) 

* T5 5 , F8 . 2 ) 

K~41 

WRITE (NWRITE, 500) K, DESIGN (K) 

500 FORMAT (T2, 12, T5, 'TRASH VOLUME (FT3/MAN- DAY) 

* T55,F8.2) 

K=42 

WRITE (NWRITE, 510) K, DESIGN (X) 

510 FORMAT (T2, 12, T5, 'TRASH COMPACTION RATIO (FRACTION OF ORIGINAL) 

* T55,F8.2) 

K=43 

WRITE (NWRITE, 520) K, DESIGN (X) 

520 FORMAT <T2, I 2, T5, 'TRASH COMPACTOR WEIGHT ( LB) 

<i- T5 5,F8.2) 

K=4 4 

WRITE (NWRITE, 530) K, DESIGN ( K) 

530 FORMAT (T2, 12, T5, 'TRASH COMPACTOR VOLUME (FT 3) 

* T55 , F8 . 2 ) 

K-4 5 

WRITE (NWRITE, 540) K, DESIGN (K) 

540 FORMAT (T2 ,12 ,T5, 'TRASH COMPACTOR POWERiWATTS) 



K”46 

WRITE (NWRITE, 550) K , DESIGN ( R) 

550 FORMAT (T2 ,12 ,T5, ' CLOTHES WASHER WEIGHT (LB) 

* T55 , F8 . 2 ) 

K=47 

WRITE (NWRITE ,560) K, DESIGN ( K) 

560 FORMAT (T2, 12, T5, 'CLOTHES WASHER VOLUME (FT3) 

* T5 5 , F8 . 2 ) 

K=48 

WRITE (NWRITE, 570) K, DESIGN ( K) 

570 FORMAT (T2 ,12 ,T5, ' CLOTHES WASHER POWER (WATTS) 

* T5 5 , FS . 2 ) 

K=49 

WRITE (NWRITE, 580) K, DESIGN (X) 

580 FORMAT (T2, 12, T5, ‘DISHWASHER WEIGHT (LB) 

* T55,F8.2) 

K=50 

WRITE (NWRITE, 590) K, DESIGN ( K) 

590 FORMAT (T2, 12, T5, 'DISHWASHER VOLUME (FT3) 

* T55 , F8 . 2 ) 

K=S1 

WRITE (NWRITE, 600) K, DESIGN (K) 

600 FORMAT (T2, 12, T5, 'DISHWASHER POWER (WATTS) ' 

* T55,F8.2) 

K=52 

WRITE (NWRITE, 610) K, DESIGN (K) 

610 FORMAT (T2, 12, T5, 'POWER PENALTY, LIGHT SIDE ( LB/WATT ) 

* T55 , F8 . 2 ) 

K~5 3 

WRITE (NWRITE, 615) K, DESIGN (K) 

615 FORMAT (T2 , 12 ,T5 , * POWER PENALTY, DARK BIDE ( LB/WATT) 

* T55,F8.2) 

K=54 

WRITE (NWRITE, 620) K, DESIGN (K) 

620 FORMAT (T2, 12, T5, » AVG HEAT REJECTION PENALTY ( LB/WATT } 

* T55 , F8 . 2 ) 

K=55 

WRITE (NWRITE, 630) K, DESIGN (K) 

630 FORMAT (T2, 12, T5, 'TIME IN SUNLIGHT PER ORBIT (MIN) 

* T55 , F8 . 2 ) 

R=56 

WRITE (NWRITE, 640) K, DESIGN ( X) 

640 FORMAT (T2, 12, T5, 'TIME IN DARKNESS PER ORBIT (MIN) 

* T55 , F8 . 2 ) 

C CALL DSGNIN ( *445) 

IF (NWRITE. EQ. 6) CALL DSGNIN(*445) 

RETURN 

END 

C 

SUBROUTINE DSGNIN (*) 

REAL N,M 

PARAMETER (NDSGN=56 , NSSD7\T=3 0 , NSYS= 50 , NSUBS YS=35 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAHXslS , NITYP=4 ) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT , NSYS ) , 

* SUB8YS ( 0 : NSUBSYS , NNUM) ,N,R,RE,M, ITYPE (NNUM, NITYP) , IWATER(NWNUM) 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3) ,WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ (30, NAAUX) , WRSADXQ (NWNUM, 0 : NWAUX) , 


* AUXILA(NNUM,NAAUX,0:3) , AUXILW (NNUM, 0 : NWAUX , 0 : 3 ) , 

* GROUP, I UNIT, JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER { NAAUX , NAAUX ) , P8WATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* 6 ADUMP 

LOGICAL FLAG 
FLAG=. FALSE. 

5 PRINT*, 'ENTER ID# , SPACE , NEW VALUE <RET> FOR EACH CHANGE* 

PRINT*, 'ENTER 0, SPACE, 0 <RET> TO QUIT EDITING' 

10 READ (5, *,ERR=!>) NUM, VALUE 
IF (NUM.EQ.O) GOTO 99 

IF (NUM. LT. 1 . OR. NUM. GT. NDSGN) GOTO 10 
DESIGN (NUM) =VALUE 
FLAG— . TRUE . 

GOTO 10 

99 IF (FLAG) RETURN 1 
RETURN 
END 

SUBROUTINE SSDTIN { * , ISYS ) 

REAL N, M 

PARAMETER ( NDSGN— 5 6 , N88DAT=3 0 , NS Y0=50 , NSUB8YS=3 5 , NNUM=9 , NWNUM=6) 
PARAMETER (NAAUX=10 ,NWAUX=16 ,NITYP=4) 

PARAMETER (NCOMPAR=20 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , S8DATA (N6SDAT,NSY8) , 

* SUBSYS ( 0 : NSUBSYS , NNUM) , N, R, RE, M, ITYPE (NNUM, NITYP) , IWATKR (NWNUM) 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX ( NAAUX , 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ( 30, NAAUX) , WRSAUXQ (NWNUM, 0 S NWAUX) , 

* AUXXLA (NNUM, NAAUX, 0 i 3 ) ,AUXILW (NNUM, 0 S NWAUX, 0 S 3 ) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* S WATER (NAAUX, NAAUX) , PS WATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER * 6 ADUMP 

LOGICAL FLAG 
FLAG=. FALSE. 

5 PRINT*, 'ENTER ID# , SPACE , NEW VALUE <RET> FCR EACH CHANGE* 

PRINT*, ' ENTER 0, SPACE, 0 <RET> TO QUIT EDITING' 

10 READ ( 5 , * , ERR=5 ) NUM, VALUE 
IF (NUM.EQ.O) GOTO 99 

IF (NUM.LT. 1 . OR. NUM . GT . N88DAT) GOTO 10 

SSDATA (NUM, ISYS ) —VALUE 

FLAG=.TRUE. 

GOTO 10 

99 IF (FLAG) RETURN 1 
RETURN 
END 

SUBROUTINE SBRSSDAT (NPrRITK) 

REAL N,M 

PARAMETER ( NDSGN— 5 6 , NS8DAT=3 0 ,NG YS=5 0 ,NSUBS YS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER ( NAAUX=10 , NWAUX=1 « , NITYP=4 ) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (N38DAT, NS YS) , 

* SUBSYS (OSNSUBSYS, NNUM) , N,R, RE, M, ITYPE (NNUM, NITYP) , I WATER (NWNUM) 

* TOTALS (NSUBSYS , 3 ) , NUMBER, ARSAUX (NAAUX, 3 ^ , WRSAUX (NWAUX ,0:3) , 

* ARSAUXQ( 30, NAAUX) , WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXI LA ( NNUM, NAAUX, 0 :3) ,AUXILW(NNUM,0 JNWAUX, 0 :3) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER( NAAUX, NAAUX) ,PSWATER( NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 

COMMON /FILE/ FNAME(NSYS) 


CHARACTER* 12 FNAME , FILNAM (NNUM) 

CHARACTER** ADUMP 
LOGICAL FLAG (NAYS) 

DO 3 1=1,50 
3 FLAG ( I) =. FALSE. 

DO 500 X=1 , NUMBER 
IS YS=ITYPE (1,1) 

IF ( FLAG { IS YS ) ) GOTO 500 
FLAG (ISY8) =. TRUE. 

FILNAM ( I ) =FNAME { ISYS ) 

NREAD=5 

5 WRITE (NWRITE, 10) FILNAM (I) 

10 FORMAT (////,T20, 'SUBSYSTEM DATA - *,A12) 

K=1 

WRITE (NWRITE, 20) K , SSDATA ( K , ISYS ) 

20 FORMAT (T2, 12, T6, 'POWER REQUIRED, DAYLIGHT SIDE (WATTS ) S » , T4 4 , F8 . 2 ) 
K=2 

WRITE (NWRITE, 30) K , SSDATA ( K, IB YS ) 

30 FORMAT (T2, 12, T6, 'POWER REQUIRED , DARK SIDE(WATTS): »,T44,F8.2) 

K=3 

WRITE (NWRITE, 40) K, SSDATA ( K, ISYS) 

40 FORMAT (T2, 12, T6, 'HEAT REJECTION (WATTS ) I *,T44,F8.2) 

K=4 

WRITE (NWRITE, 50) K , SSDATA ( K , ISYS ) 

50 FORMAT (T2, 12, T6, * INITIAL FLIGHT UNIT(LB): ',T44,F8.2) 

K=5 

WRITE (NWRITE, 60) K, SSDATA ( K, ISYS ) 

60 FORMAT (T2, 12, T6, ' INITIAL FLIGHT UNIT(FT3): ',T44,F8.2) 

K=6 

WRITE (NWRITE, 70) K, SSDATA ( K, ISYS) 

70 FORMAT (T2, 12, T6, 'SPARES OVER RESUPPLY INTERVAL ( LB ) S *,T44,F8.2) 
K=7 

WRITE (NWRITE, 80) K , SSDATA ( K, ISYS ) 

80 FORMAT (T2, 12, T6, 'SPARES OVER RESUPPLY INTERVAL (FT3 ) : ',T44,F8.2) 

K=8 

WRITE (NWRITE, 90) K, SSDATA ( K , ISYS ) 

90 FORMAT (T2, 12, T6, ' CONSUMMABLEfl OVER RESUPPLY INT(LB) : ',T44,F8.2) 

K=9 

WRITE (NWRITE, 100) K, SSDATA ( K, ISYS ) 

100 FORMAT (T2, 12, T6 , ' CONSUMMABLES OVER RESUPPLY INT (FT 3 ) : ' ,T44,F8.2) 
K=10 

WRITE (NWRITE, 110 ) K, SSDATA ( K, ISYS ) 

110 FORMAT (T2, 12, T6, 'RELIABILITY (1 TO 8): *,T44,F8.2) 

K=ll 

WRITE (NWRITE, 120) K , SSDATA ( K, ISYS ) 

120 FORMAT (T2, 12, T6, 'TECHNOLOGY READINESS ( 1 TO a ) : »,T44,F8.2) 

K=12 

WRITE (NWRITE, 130) K, SSDATA (K, ISYS) 

130 FORMAT (T2, 12 , T6, ' PACING TECHNOLOGY PROBLEMS (1 TO 8 ) : ' , T44 , F8 . 2 ) 
K=13 

WRITE (NWRITE, 14 0) K, SSDATA <K, UJYS) 

140 FORMAT (T2, 12, T6, 'SAFETY INDEX (1 TO 8): ',T44,F8.2> 

K=14 

WRITE (NWRITE, 150 ) K , SSDATA ( K, ISYS) 

150 FORMAT (T2, 12, T6, 'MAINTAINABILITY INDEX (1 TO 8): ',T44,F8.2) 

K=15 

WRITE (NWRITE, 160) K, SSDATA ( K, ISYS) 

160 FORMAT (T2, 12, T6, 'COMMONALITY INDEX (1 TO 8): »,T44,F8.2) 

K=1 6 

WRITE (NWRITE, 17 0 ) K, SSDATA (K, 18*8) 



170 FORHAT(T2, 12 ,T6, 'MAINTENANCE OVER RESUPPLY INT(HR): ' ,T44,FB.2) 

IF (I8YS.GE.21.AND.IS7fl.LE.30) THEN 
K=18 

WRITE (NWRITE, 190) K , S8DATA ( K , ISYS) 

190 FORMAT (T2 # 12, T6, • LB/DAY 02 USED TO SIZE SYSTEM: ',T44,F8.2) 

ENDIF 

IF ( ISYS . GE . 1 . AND • ISYS . LE .20) THEN 
K=19 

WRITE (NWRITE, 2 00) K, SSDATA ( K, ISYS) 

200 FORMAT (T2, 12, T6, • LB/DAY C02 USED TO SIZE SYSTEM: ',T44,F8.2) 

ENDIF 

IF (ISYS. GE. 31) THEN 
K=20 

WRITE ( NWRITE ,210) K, SSDATA ( K, ISYS) 

210 FORMAT (T2, 12, T6, 'LB/DAY H20 USED TO SIZE SYSTEM: • ,T44,F8.2) 

ENDIF 

IF (NWRITE. EQ. 6) CALL SSDTIN ( *5 , I8YS) 

215 IF (ISYS.EQ.l) THEN 
K=21 

WRITE (NWRITE, 220 ) K, SSDATA (K, ISYS) 

220 FORMAT (T2 ,12, T6, • H2 USED OVER RESUPPLY INTERVAL ( LBM) :', T4 4 , F8 . 2 ) 
K-2 2 

WRITE (NWRITE, 230) K , SSDATA ( K, IS Y8) 

230 FORMAT (T2, 12, T6, '02 USED OVER RESUPPLY INTERVAL ( LBM) :', T4 4 , F8 . 2 ) 
ENDIF 

IF (ISYS. GE. 11. AND. ISYS. LE. 13) THEN 
K=21 

WRITE (NWRITE, 220) K, SSDATA (K, ISYS ) 

ENDIF 

I F (ISYS.GE. 1. AND. ISYS.LE.20) THEN 
7.-2 3 

WRITE (NWRITE, 240) K, SSDATA (K, ISYS) 

240 FORMAT (T2, 12 , T6, 'H20 PRODUCED OVER RESUPPLY INT { LBM) : • , T4 4 , F8 , 2 ) 

ENDIF 

IF (ISYS. EQ. 11. OR. ISYS. EQ. 13) THEN 
K=2 4 

WRITE (NWRITE, 2 50) K, SSDATA ( K, ISYS) 

250 FORMAT (T2, 12, T6 , *0 PRODUCED OVER RESUPPLY INT (LBM): ' ,T44,F8.2) 

ENDIF 

IF (ISY8.EQ.12) THEN 
K=25 

WRITE { NWRITE ,260) K , SSDATA ( K , ISYS ) 

260 FORMAT (T2, 12, T6, 'CH4 PRODUCED OVER RESUPPLY INT ( LBM) : • , T4 4 , FS . 2 ) 

K=2 6 

WRITE (NWRITE, 270) K, S8DATA (X, ISYS ) 

270 FORMAT (T2, 12, T6, • C02 NOT REACTED " T ER RESUPLY INT (LB) ' ,T44 , F8 . 2 ) 
ENDIF 
K=27 

WRITE (NWRITE ,280) K, SSDATA ( K, ISYS ) 

280 FORMAT (T2, 12, T6, 'SIZING FACTOR FOR WEIGHTS »,T44,F8,2) 

K=28 

WRITE ( NWRITE ,290) K , SSDATA (K, ISY8) 

290 FORMAT (T2 ,12, T6, 'SIZING FACTOR FOR VOLUMES «,T44,F8.2) 

K=2 9 

WRITE (NWRITE, 300) K, SSDATA (K, IB YS) 

300 FORMAT (T2, 12, T6, 'SIZING FACTOR FOR POWER/HEAT REJECT *,T44,F8.2) 
K=30 

WRITE (NWRITE, 310) K, SSDATA (K, ISYS) 

310 FORMAT (T2, 12, T6, »E, PROCESS EFFICIENCY: *,T44,F8.2) 

IF {NWRITE . EQ. 6) CALL SSDTIN ( *2 15 , ISYS ) 



0 CONTINUE 
RETURN 
END 

SUBROUTINE SBRAUXIL (NWRITE) 

REAL N , M 

PARAMETER (NDBGN=56 , NSBDAT=3 0 , N8Y8=50 , NSUB8YB=3 5 , NNUM=9 , NWNUM= 6 ) 
PARAMETER ( NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER (NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /QENRL/ DESIGN (NDSON) , SSDATA (N8SDAT , NSYS ) , 

* 8UB8Y8 (0:NSUB8YS, NNUM) , N, R, RE ,M, ITYPE (NNUM , NITYP) , IWATER (NWNUM) , 

* TOTALS (N8UBSY8, 3) , NUMBER, ARBAUX (NAAUX , 3 ) ,WR" “X (NWAUX ,0:3) , 

* ARSAUXQ (30, NAAUX) , WR8AUXQ (NWNUM, 0 j NWAUX) , 

* AUXILA (NNUM,N?tAUX , 0 s 3 ) , AUXILW (NNUM, 0 : NWAUX , 0 : 3 ) , 

* GROUP, IUNIT,JFLOW( NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* SWATER (NAAUX, NAAUX) , P8WATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
DIMENSION AUXATOT ( NNUM , 3 ) , AUXWTOT (NNUM, 3 ) 

COMMON /FILE/ FNAME (NSYS) 

CHARACTER* 12 FNAME , FI LNAM (NNUM) 

CHARACTERS 2 NAME A (NAAUX) , NAMEVI (0 I NWAUX) 

CHARACTER* 61 WATTIT 
CHARACTER* 6 ADUMP 
CHARACTER* 3 AVAL 

DATA NAMEA/ ‘WATER PUMP‘,'HOT WATER H/X ' PURIFICATION DEVICE’, 

* <02 COMPRESSOR* , *02 STORAGE TANK' , 1 H2 COMPRESSOR', 

* *H2 STORAGE TANK' , • CH4/C02 COMPRESSOR* ,' CH4/C02 STORAGE TANK', 

* 'CARBON STORAGE EQUIP'/ 

DATA NAMEW/ • NO . RECYCLES/RESUP INT ',* TANKAGE (PER LB H20) ' , 

* 'PRIMARY PUMP' , 'SECONDARY PUMP »,' RECIRCULATION PUMP', 

* • AIR-K20 SEPARATOR' , 'BIOCIDE RESERVOIR' ,' PRETREAT RESERVOIR', 

* 'SPRING LOAD ACUMULATR* , ' SHUT OFF VALVE ',' SOLENOID VALVE', 

* 'CHECK VALVE' ,' PREFILTER PACKAGE* CARBON & ION EXCHANGE', 

* * 12 DISPENSER/DETECTOR* ,' SAMPLE PORT ',' LINE/DUCT (PER FOOT)'/ 

DO 50 1=1, NUMBER 

ISYS=ITYPE (I, 1) 

FILNAM (I) =FNAME ( ISYS) 

IF (ISYS. LE. 30) AVAL= 'ARB* 

IF (ISYS.GE.31) AVAL='WRS* 

WATTIT= * • 

ICNT=1 

IF (IWATER(l) .EQ.I) THEN 
WATTIT ( ICNT : TCNT+12 ) = « CONDENSATE • 

ICNT=INCT+13 
END IF 

IF (IWATER(2) .EQ.I) THEN 
WATTIT { ICNT : ICNT+14 ) =' REDUCTION H20 ' 

ICNT=ICNT+15 

ENDIF 

IF ( IWATER ( 3 ) .EQ.I) THEN 
WATTIT (ICNT : ICNT+3)=' HYGIENE » 

ICNT=ICNT+9 

ENDIF 

IF ( IWATER ( 4 ) -EQ.I) THEN 
WATTIT (ICNT: lCNT+8)=» CLOTHES « 

ICNT=ICNTf9 

ENDIF 

IF (IWATER(5) .EQ.I) THEN 
WATTIT ( ICNT: lCNT+6)=» URINE ' 

ICNT=ICNT+7 


ENDIF 

TV (IWATER(«) .EQ. I) THEN 
WATTIT ( ICNT S ICNT+8 ) = ' DI8HWABH ' 

ENDIF 

5 WRITE (NWRITE, 10) AVAL, FILNAM ( I ) 

10 FORMAT (8(/),T17,A3,' AUXILIARY EQUIPMENT DATA - ',A12) 

IF (ISYS.GE.31) WRITE (NWRITE, 23) WATTIT 
23 FORMAT (IX, 'H20 RECOVERED I * , A6 1 ) 

WRITE (NWRITE, 20) 

20 FORMAT (T6 , 1 ITEM 1 ,T2 t , ' QUAN . WEIGHT EACH ( LB) VOLUME EACH (FT3 ) ', 

* * POWER EACH (WATT) 1 ) 

DO 25 K=l,3 
AUXATOT ( I , X) =0 . 

25 AUXWTOT (I, K)=0. 

IF (IBYS.LE.30) THEN 
DO 40 J=l, NAAUX 

WRITE (NWRITE, 30) J , NAMEA ( J ) , ( AUXILA ( I , J , K) ,K=0,3) 

30 FORMAT (IX, 12, ' . • , A2 2 , T25 , F6 . 2 , T3 5 , F8 . 3 , T50 , F9 . 4 , T68 , F7 . 2 ) 

DO 35 K— 1 , 3 

3 5 AUXATOT ( I , K) =AUXATOT ( I , K) -f AUXILA ( I , J , K) * AUXILA ( I , J, 0 ) 

40 CONTINUE 
ELSE 

DO 60 J=0 , NWAUX 
IF (J.EQ.0) THEN 

WRITE (NWRITE, 51) J,NAMEW(J) , AUXILW ( I , J , 0 ) 

51 FORMAT ( IX , 12 , ' . ’ , A22 ,T27,F5.2) 

ELSE 

WRITE (NWRITE, 30) J,NAMEW(J) , ( AUXILW ( I ,J , K) ,K=0,3) 

ENDIF 

DO 55 K— 1 , 3 

55 IF ( J . GT .1) AUXWTOT ( I , K) = AUXWTOT ( I , X) + AUXILW ( I , J , K) * AUXILW ( I , J , 0 ) 
60 CONTINUE 
ENDIF 

IF <ISYS.LE.30) THEN 

WRITE (NWRITE, 70) ( AUXATOT ( I , K) ,K=1,3) 

70 FORMAT (T5, 'TOTALS 1 , T3 5 , F8 . 3 , T50 , F9 . 4 , T68 , F7 . 2 ) 

ELSE 

WRITE (NWRITE, 7 5) ( AUXWTOT ( I , K> ,K=1,3) 

75 FORMAT (TS, 'TOTALS (EXCL. TANKAGE) ' , T3 S , F8 , 3 , T5Q , F9 . 4 , T68 , F7 .2) 
ENDIF 

IF (NWRITE. EQ. 6) CALL AUXILIN ( ISYS , I , *5 ) 

50 CONTINUE 
RETURN 
END 

SUBROUTINE AUXILIN (ISYS, I,*) 

REAL N,M 

PARAMETER (NDSGN=56 , NSSDAT=30 , NSYS=50 , NSUBSY8=35 , NNUM=9 , NWNUM= 6 ) 
PARAMETER (NAAUX=10 ,NWAUXsl6 , NITYP=4 ) 

PARAMETER (NCOMPAR=2C) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (ND8GN) , 8SDATA (NSSDAT , NO YS ) , 

* SUESYS (OrNSUESYS, NNUM) ,N,R,RE,M, ITYPE (NNUM,NITYP) , IWATER (NWNUM) , 

* TOTALS (NSUBSYS, 3) , NUMBER, AR8AUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ( 30, NAAUX) , WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA ( NNUM , NAAUX ,0:3) , AUXILW (NNUM, 0 : NWAUX, 0 : 3 ) , 

* GROUP, IUNIT, JFLOW(NAAUX, NCOMPAR) , KFLOW ( NCOMPAR, NCOMPAR) , 

* SWATER( NAAUX, NAAUX) , PSWATER (NAAUX) , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* 6 ADUMP 

LOGICAL FLAG 


FLAGS. FALSE. 

PRINT 6 

6 FORMAT (IX, 'ENTER ID# , QUANTITY , WEIGHT , VOLUME , POWER <RET> FOR EACH', 

* ' CHANGE ( -1 . TO KEEP VALUE)') 

PRINT*, 'ENTER -10000 <R£T> TO QUIT EDITING' 

10 READ(5,*,ERR=10) NUM,Q,W,V,P 
IP (NUM.EQ.-l) GOTO 99 
IF ( IS YS . LE .30) THEN 

IF (NUM.LT.l.OR.NUM.GT.NAAUX) GOTO 10 
I? (Q.GE.O.) AUXILA (I, NUM, 0)=Q 
IF (W.GE.O.) AUXILA ( I , NUM, 1 ) =W 
IF (V.GE.O.) AUXILA (I, NUM, 2 )=V 
IF (P.GE.O.) AUXILA (I, NUM, 3 )=P 
FLAG= . TRUE . 

GOTO 10 
ELSE 

IF (NUM . LT . 0 . OR. NUM . GT . NWAUX) GOTO 10 
IF (Q.GE.O.) AUXILW ( I , NUM , 0 ) — Q 
IF (W.GE.O.) AUXILW (I, NUM, 1)=W 
IF (V.GE.O.) AUXILW (I, NUM, 2 )=V 
IF (P.GE.O.) AUXILW ( I , NUM, 3 ) =P 
FLAG— . TRUE . 

GOTO 10 
ENDIF 

99 IF (FLAG) RETURN 1 
RETURN 
END 
C 

SUBROUTINE AUXLSTRT 
REAL H,M 

PARAMETER (NDSGN=5 6 , NSSDAT=3 0 , N0YH=5O , NSUB8YS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUXsrlO , NWAUX=16 , NITYP=4 ) 

PARAMETER (NCOMPAR=2 0 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (ND8GN) , SSDATA (NSSDAT, N8YS ) , 

* SUBSY8 ( 0 l NSUBSY8 , NNUM) , N , R, RE , M, I TYPE ( NNUM, NITYP) , IWATER (NWNUM ) , 

* TOTALS (NSUB8YS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* AR8AUXQ( 3 0, NAAUX) , WR8AUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA (NNUM, NAAUX, OJ 3) , AUXILW (NNUM , 0 S NWAUX, 0 : 3 ) , 

* GROUP, IUNIT,JFLOW( NAAUX, NCOMPAR) , KFLOW ( NCOMT AR , NCOMPAR ) , 

> SWATER (NAAUX, NAAUX) , P8 WATER (NAAUX) , LFLOW ( NCOMPAR, NCOMPAR) 

CHARACTER* 6 ADUMP 
C 

C AUXILA (1-3, J,K) - AUXILIARY DATA FOR AIR REVITALIZATION SUBSYSTEM CHOSEN 
C 

C AUXILA ( I , 1 , K) = WATER PUMP 
C AUXILA (I, 2 ,K) = HOT WATER HEAT EXCHANGER 

C AUXILA (I, 3 , K) = PURIFICATION DEVICE 
C AUXILA (I, 4 , K) =02 COMPRESSOR 
C AUXILA ( I , 5,K) = 02 STORAGE TANK 

C AUXILA{I, 6 , K) = H2 COMPRESSOR 
C AUXILA (I, 7 , K) = H2 STORAGE TANK 
C AUXILA (I, 8 , K) = CH4/C02 COMPRESSOR 
C AUXILA ( I , 9 , K) = CH4/C02 STORAGE TANK 
C AUXILA (I, 10, K) = CARBCVt STORAGE EQUIPMENT 
C 

C AUXILA ( I ,<T, 0) = QUANTITY 

C AUXILA ( I , J , 1) = WEIGHT EACH (LB) 

C AUXILA ( I, J, 2) = VOLUME EACH (FT3 ) 

C AUXILA ( 1, J, 3) = POWER EACH (WATTS) 




i 


C 

c 

C AUXILW ( 1-9 ,J , K) ' “ AUXILIARY DATA FOR EACH WATER RECLAMATION SUBSYSTEM CHOSt 
C 

C AUXILW ( I , 0,0) = NUMBER OF RECYCLES H20/ RESUPPLY INTERVAL 
C AUXILW ( 1 , 1 , K) = WATER TANKS t WEIGHTS , VOLUMES , POWER PER LB H20 STORED 

C AUXILW (I, 2 , X) = PRIMARY PUMP 

C AUXILW (I, 3 , F.) — SECONDARY PUMP 

C AUXILW (I, 4 , K) = RECIRCULATION PUMP 

C AUXILW (I, 5 , K)‘ = AIR-H20 SEPARATOR 

C AUXILW (I, 6 , K) = BIOCIDE RESERVOIR 

C AUXILW (I, 7,K) = PRETREAT RESERVOIR 

C AUXILW (I, 8 , K) = SPRING LOADED ACCUMULATOR 
C AUXILW (I, 9 , K) = SHUT OFF VALVE 
C AUXILW (I, 10 , K) = SOLENOID VALVE 
C AUXILW (I, 11, K) = CHECK VALVE 
C AUXILW (I, 12, K) = PREFILTER PACKAGE 
C AUXILW (I, 13, K) = CARBON fc ION EXCHANGE 
C AUXILW (I, 14, K) = 12 DISPENSER/DETECTOR 
C AUXILW (I, 15, K) = SAMPLE PORT 

C AUXILW (I, 16, K) = LINE/DUCT: WEIGHTS , VOLUMES , POWER PER FOOT OF LENGTH 
C 

C AUXILW < I, J, 0) = QUANTITY 

C AUXILW ( I, J , 1) = WEIGHT EACH (LB) 

C AUXILW ( I, J, 2) = VOLUME EACH ( FT3 ) 

C AUXILW < I, J, 3) = POWER EACH (WATTS) 

C 

C 

DO 5 1=1, NUMBER 
DO 4 K=0 , 3 

LHJ £ — A f HJUtllA 

2 AUXILA (I,J,K)=0. 

DO 3 J=0 , NWAUX 

3 AUXILW { I , J, K) =0 . 

4 CONTINUE 

5 CONTINUE 

DO 100 1=1, NUMBER 
ISYS=ITYPE (I, 1) 

IF (ISYB.LE.30) THEN 
DO 20 J=1 , NAAUX 
DO 10 K=0,3 
IF (K.EQ.0) THEN 

AUXILA (I, J, K)=ARSAUXQ(ISYS,J) 

ELSE 

AUXILA ( I , J , K) =ARS AUX ( J , X) 

ENDIF 

10 CONTINUE 
20 CONTINUE 

IF (ADUMP.EQ. 'DUMPED' ) THEN 
AUXILA (I,6,0)=0. 

AUXILA (I,7,0)=0. 

AUXILA (1,8,0) =0 . 

AUXILA (I,9,0)=0< 

ENDIF 

ELSE 

ICNT=0 

LL=I~ ( NUMBER- IUNIT) 

25 DO 60 JJ=1, GROUP 
LOOP=0 

DO 50 11=1 , NWNUM 


f 


IF (IWATSP.(II) -NE. JJ) GOTO 50 
IF ( JFLOW ( JJ , LL) . NC . 0 ) THEN 
2 6 ICNT=ICNT+1 

DO 40 J=0,NWAUX 
DO 3 0 K=:0,3 

IF (K.EQ.O) THEN 
IF (J.EQ.5) THEN 

AUXILW ( I , J, K) -'AUXILW ( I , J , K) 4 WRSAUXQ ( II , J) 

ELBE 

AUXILW (I,J,K)=AMAX1 (AUXILW (I, J,K) , WRSAUXQ { II , J ) ) 
ENDIF 
ELSE 

AUXILW ( I , J , K) =WRSAUX ( J , K) 

ENDIF 

30 CONTINUE 

40 CONTINUE 

ENDIF 
LOO P= 1 
50 CONTINUE 

IF {JFI.OW (JJ,LL) .NE. 0 . AND. LOOP.NE. 1) THEN 
DO 61 MM=1, GROUP 
DO 62 NN— 1 , NWNUM 

IF ( IWATER (NN) .NE.MM) GOTO 62 
DO 63 MN=1 , li’NIT 

IF (LFLOW (MM,MN) .NE.O) THEN 
ICNT— ICNT4-1 
DO 64 J=0 , NWAUX 
DO 65 K=0,3 

IF (K.EQ.O) THEN 
IF (J.EQ.5) THEN 

AUXILW ( 1 1 J f RJ = AUXILW ( 1 , J / K) + WRSAUXQ ( NN f J) 

ELSE 

AUXILW (I ,J,K)=AMAX1 (AUXILW ( I, J,K> , WRSAUXQ (NN, J ) ) 
ENDIF 
ELBE 

AUXILW { I, J,K)=WRSAUX(J,K) 

ENDIF 

65 CONTINUE 

64 CONTINUE 

ENDIF 

63 CONTINUE 

62 CONTINUE 

61 CONTINUE 

ENDIF 

60 CONTINUE 

AUXILW (1,16,0) = AUXILW (1,16,0) * ( 1 . 4- . 10 * { ICNT- 1 ) ) 

ENDIl? 

100 CONTINUE 
RETURN 
END 

SUBROUTINE NUMUNIT 'NUNIT, NALT) 

PRINT*,' • 

PRINT*, 'ENTER N'lI.FER OF UNITS TO HJiNDLE LOAD (EX! 2 WITH 6 CREW=', 

* ' 2 3-MAN UNITS)' 

10 READ (5, *,ERR=10, INUM 
IF (INUM. LT. 0) GOTO 10 
NUNIT=INUM 

PRINT*, 'ENTER NUMBER OF REDUNDANT (BACKUP) UNITS (SAME SIZE AS 

* 'ABOVE) ' 


2 0 READ ( 5 , • , BRR=2 0 ) I MUM 
IF (INUM.LT.O) GOTO 20 
NAL7=INUM 
RETURN 
END 

SUBROUTINE STORE 
REAL N,M 

PARAMETER (ND8GN=;3 6 ,N8SDAT=3 0 ,NSYS=30 ,NSUBSYS=3 5 ,NNUM=9 ,NWNUM=6) 
PARAMETER (NAAUX=10 , NWAUX-16 , NITYP=4 ) 

PARAMETER <ICOMPAR=17 , NCOMPAR=20 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SBDATA (N8BDAT , NAYS ) , 

* BUBSYS (0 : KStJBSYS , NNUM) , N, R, RE , M , ITYPE ( NNUM, NITYP ) , IWATER (NWNUM) , 

* TOTALS (NSUBSYS ,3) , NUMBER , ARB AUX ( NAAUX , 3 ) , WR8AUX ( NWAUX , 0 1 3 ) , 

* ARBAU. ’Q (V) , NAAUX) , WR8AUXQ ( NWNUM , 0 J NWAUX) , 

* AUXILA ( N.-.’UM , NAAUX , 0 l 3 ) ,AUXILr. (NNUM, 0 : NWAUX, 0 : 3 ) , 

* GROUP , IL’NIT , JFLOW (NAAUX , NCOMPAR) , KFLOW ( NCOMPAR , NCOMPAR ) , 

* 8 WATER (NAAUX, NAAUX) , PS WATER (NAAUX) , LFLOW ( NCOMPAR , NCOMPAR) ■* 
COMMON /RATES YB/ ITRACX , COMPAR ( ICOMPAR, NCOMPAR) # 

* POINT (Or ICOMPAR) , RATE (0 I ICOMPAR, NCOMPAR) , 

* COMPAR1 (ICOMPAR, 3) 

COMMON /CHAR2/ COMPARD (NCOMPAR) , COMPARE (NCOMPAR) 

CHARACTER* 6 ADUMP 
CHARACTER* 60 COMPARD 
CHARACTER* 12 COMPARL 
PRINT 5 

5 FORMAT (5 (/)) 

PRINT*, 'DO YOU WANT TO t ' 

PRINT*,' 1. STORE SUMMARY DATA FOR LATER SYSTEMS COMPARISON* 
PRINT*,' 2. RETURN TO SYSTEMS SELECTION WITHOUT SAVING RE8ULT8 * 

6 READ ( 5 , * , ERR=6 ) INUM 

IF (INUM.NE.1.AND.INUM.NE.2) GOTO 6 
IF (INUM.EQ.2) GOTO 99 
IF (ITRACK.EQ. NCOMPAR) THEN 
PRINT*,' • 

PRINT*, » ***WARNING***MAX NUMBER OF SYSTEMS HAVE BEEN STORED' 
PRINT*,' 0. DO NOT SAVE CURRENT SYSTEM RESULTS' 

DO 2 1=1 , ITRACK 
PRINT 3, I, COMPARL (I) 

3 FORMAT (IX, 12 ,' . ',A12) 

2 CONTINUE 

PRINT*, ' ENTER NUMBER OF BY8TEM TO BE REPLACED' 

4 READ (5, * ,ERR=4 ) INUMl 
IF ( INUMl. EQ.0) GOTO 99 

IF (INUM1.LT. 1. OR. INUMl. GT. NCOMPAR) GOTO 4 
ITRACK1=INUM1 
GOTO 9 
ENDIF 

ITRACK=ITRACK+1 
I TRACK 1=1 TRACK 
9 PRINT 10 

10 FORMAT (//, IX, 'ENTER 12 CHARACTER IDENTIFYING LABEL',/, IX, 

* '123456789012') 

11 READ (5,15, ERR=1 1 ) COMPARL ( ITRACK1 ) 

15 FORMAT ( A12 ) 

PRINT 20 

20 FORMAT (/, IX, 'ENTER 60 CHARACTER DESCRIPTION' ,/, IX, 

* 6( '1234567890') ) 

21 READ (5,25, ERR=2 1 / COMPARD ( ITRACK1 ) 


25 FORMAT (A60; 

C INITIAL LAUNCH WEIGHT (LB) 

COMPAR { 1,ITRACK1)=T0TALS(28,3) 

C RESUPPLY WEIGHT (LB) 

COMPAR ( 2 , ITRACK1) -TOTALS (30,3) 

C EQUIVALENT WEIGHT (LB) 

COMPAR ( 3,ITRACKl)=TOTALS (32,3) 

C LIFETIME WEIGHT (LB) 

COMPAR ( 4,ITRACKl)=TOTALS (33,3) 

C TOTAL POWER REQUIRED (WATTS ) 

COMPAR ( 5 , ITRACK1 ) =TOTALB (35,3) 

C HEAT REJECTION (WATTS) 

COMPAR { 6 , ITRACK1) =TOTALS { 3,3) 

C ON ORBIT VOLUME (FT3) 

COMPAR ( 7 , ITRAOK1) =TOTALS (29,3) 

C RESUPPLY VOLUME (FT3) 

COMPAR { 8 , ITRACK1 ) =TOTAL8 (31,3) 

C LIFETIME VOLUME (FT3) 

COMPAR ( 9 , ITRACK1 ) =TOTALS (34,3) 

C RELIABILITY (1-0) 

COMPAR ( 10 , ITRACK1 ) ^TOTALS (10,3) 

C TECHNOLOGY READINESS (1-8) 

COMPAR ( 11, I TRACKl) =TOTALS (11,3) 

C PACING TECHNOLOGY PROBLEMS (1-8) 

COMPAR ( 1? , ITRACK1 ) =TOTALfl (12,3) 

C SAFETY (1-8) 

COMPAR ( 13 , ITRACK1 ) =TOTALS ( 13 , 3 ) 

C MAINTAINABILITY (1-8) 

COMPAR (1 4, ITRACK1) -TOTALS (14,3) 

C COMMONALITY (1-8) 

COMPAR (15 , ITRACK1 ) ^TOTALS (15,3) 

C OVERALL RATING (1-8) 

COMPAR (16, ITRACK1 ) =TOT ALS (27,3) 

C MAINTENANCE TIME (HR) 

COMPAR ( 17 ,ITRACK1) =TOTALS (16,3) 

99 RETURN 
END 

SUBROUTINE WRESUP (NWRITE) 

REAL N , M , N2 LEAK , N2 AIR , N2 RPR8 , N2 COM , N2 PURG , N2 TOT , MAKEUP , MAKE UPR , 

* LAUNL 

PARAMETER (NDSGN-56 , NSS0AT=30 , NSYS=5 0 , NSUBSYS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER ( NAAUX= 1 0 , NW AUX= 1 6 , NIT YP=: 4 ) 

PARAMETER (NCOMPAR=20 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSLaT , NSYS ) , 

* SUBSYS ( 0 : NSUHSYS , NNUM) , N, R, RE ,M, ITYPE (NNUM, NITYP) , IWATER (NWNUM) , 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ (30, NAAUX ) , WRS AUXQ ( NWNUM , 0 : NWAUX ) , 

* AUXILA (NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 : NWAUX, 0 : 3 ) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* 8 WATER ( NAAUX , NAAUX ) , PS WATER ( NAAUX ) , LFLOW ( NCOMPAR , NCOMPAR ) 

COMMON /MATRL/ PPN2 , PP02 , PTOT , 02MET , 02 EVL , 02 LEAF , 02 AIR, 02 RPRS , 

*> O2C0M,02EDC,O2T0T,H2£DC,H2B8CH,H2SAB,H2TOT,H2STOR,C02MET,C02EVA , 

* C02TOT,N2LEAK, N2 AIR, N2RPR8 , N2 COM, N2 PURG , N2TOT, H20GEN , H20REMRQ , 

* H20RED , C, CH4 , C02LST , C02RED , H2STORR, CRES , CH4R, C02 LSTR , H20REM , 

* HAND , SHOWER, CLOTHES , DISHW , DRINK, FOODP , URINFL, EXPH20 , EVAH20 , 

* H20REQ , H2CMET , H20F00D , K2 OPROD , H2OT0T , SWEAT , HYGIENL , FOODPL , LAUNL , 

* DI8HWL, COND, REDH20, HANDLD, SHOWLD,HYGIENLD, CLOTHLD, H20URN,H2RED , 

* URINLD, DISHWLD, CONDR , CONDP , CONDS , REDH20R, REDH20P , REDH20S , HYGIENR , 

* HYGIENP, HYGIENS , OLOTHR, CLOTHP , CLOTHS , URINR, URINP , URINS , DISHWR, 


* DISHWS , OTHERLD , OThERR , OTHERP, OTHERS , H2GLOAD , If 20RSC , POTREC , POTRSQ , 

* MAKEUP, EXCESS, H20ST0RR,MAKEUPR, J1XCES8R, EVAH20LD, niBHWP, H208TOR, 

* EXPH20L, H20ARS , H2 REQ , FECAL , H20NET , KYGREC 

COMMON /S8LOAD/ WATER (NWAUX) , E (NWAUX, NWAUX) , AUXEQ ( 18 , 0 J 7 , 3 ) , STOREW, 

* CLOTHW, 

* CLOTHV, DISHWQHT , DI8HV, TRASHW, TRAGHV, AUXM7.T ( 3 ) 

COMMON /FILE/ FNAME (N8YS) 

CHARACTER* 12 FNAME 
CHARACTER* 6 ADUMP 

CHARACTER *3 AMAT1 , AMAT2 
KREAD=5 

IF (H2B8CH.GT.H2SAB) THEN 
AMAT1= • H2 ' 

AMAT2= ' C ■ 

ELSE 

AMAT1= 1 C02 - 
AMAT2= ' CH4 ' 

ENDIF 
NR=IPIX (R) 

WRITE (NWRITE, 10) NR 

10 FORMAT ( 5 (/), Til, ’AUXILIARY EQUIPMENT WEIGHTS (LB) - ',13, 

* • DAY RESUPPLY INTERVAL') 

WRITE (NWRITE, 20) 

20 FORMAT (T21 LOAD AUX. EQUIP WATER TANKAGE ', 

* ' MATERIAL STORAGE- TOTAL') 

WRITE (NWRITE, 30) 

30 FORMAT (T5, ' ITEM' ,T2C ,' LB/DAY EXCL. TANK WEIGHT ', 

* 'WEIGHT LOST MATL LOST WEIGHT') 

DO 65 1=1, NUMBER 
I8YS=ITYPE(I,1) 

IF (ISYS.GE.21.nND.I8YS.LE.30) THEN 

WRITE (NWRITE, *0) FNAME ( IS YS) ,02TOT , AUXEQ ( 1 , 1 , 1) , AUXEQ ( 1 , 7 , 1 ) 

4 0 FORMAT ( IX, A12 , T2 0 , F6 . 2 , T2 7 , F8 . 2 , T7 3 , F8 . 2 ) 

ENDIF 

IF ( I SYS . GE . 1 .AND . ISYS . LE . 10 ) TjiF.N 

WRITE (NWRITE, 40) ’•’NAME ( ISYS) .C02MET, AUXEQ (2 , 1, 1) , AUXEQ (2 , 7 , 1 ) 
ENDIF 

IF (ISYS.GE.il. AND. ISYS. LB. 20) THEN 

WRITE (NWRITE, 60) FNAME (ISYS) , AMAT1 , C02T0T, AUXEQ (3 , 1, 1) , 

* AUXEQ (3,3,1), AUXEQ (3,5,1) 

60 FORMAT ( IX, A12, • ( • , A3 , » ) » , T2 0 , F6 . 2 , T27 , F8 . 2 , T56 , Ffi . 2 , IX, Ft> . 2 ) 

WRITE (NWP.ITE, 61) AMAT2 , AUXEQ ( 3 , 4 , 1) , AUXEQ ( 3 , 6 , 1 ) , AUXEQ (3,7 .1) 

61 FORMAT (T14, • ( ' , A3 , ' ) • , T56 , F8 . 2 , IX, F8 . 2 , IX, F7 . 2 ) 

ENDIF 

65 CONTINUE 

WRITE (NWRITE, 70) AUXEQ (16, 1,1? AUXEQ ( 16 , 4 , 1 ) , AUXEQ ( 16 , 6 , 1) , 

* AUXEQ (16 .7, I) 

70 FORMAT <T4, 'TOTALS FOR ARS ' ,T27 ,F8 .2 ,T56,F8 .2 ,1X,F8 . 2 , 1X,F7 .2) 

WRITE (NWRITE, 80) 

SO FORMAT {) 

TCNTW=3 

DO 95 1=1, NUMBER 
ISYS=ITYPE(I,1) 

IF (ISYS. LE. 30) GOTO 95 

ICNTW=ICNTW+1 

IRECYC=IFIX ( Ar -IILW (1,0,0) ) 

WRITE (NWRITE, 90) FNAME (ISYS) , IRECYC, SUBSYS (0,1) , 

* AUXEQ (ICNTW, 1,1) , AUXEQ (ICNTW,0 , 1) , AUXEQ ( ICNTW, 2 , 1) , 

* AUXEQ (ICNTW, 3,1} , AUXEQ ( ICNTW, 5 , 1) , AUXEQ ( ICNTW, 7 , 1) 


DO DO O O 


0 0 FORMAT ( IX, A12 , ' { ' ,12, ' > ' ,T2 0 , F6 . 2 , T27 , F8 . 2 , T37 , F8 . 2 , T47 , FP . ?. , 

* T5fi,Fb.2,lX,F8.2,lX,F7.2) 

95 CONTINUE 

IF (STOREW.NE. 0 . ) THEN 
ICNTW=ICNTW+1 

fl WRITE (NWKJTE, 140) STOREW, AUXEQ ( ICNTW, 3 , 1 ) , 

* AUXEQ (ICNTW, 5, 1) , AUXEQ ( ICNTW, 7 , 1 ) 

14 0 FORMAT ( IX , * NON-RECOVRED H20‘ , T2 0 , F6 . 2 , T56 , Ffl . 2 , IX , F8 . 2 , IX, F7 . 2 ) 

ENDIF 

WRITE { NWRITE ,150) OTHERS , AUXEQ (10,3,1), AUXEQ (10,5,1), AUXEQ (10,7,1) 
150 FORMAT (IX, ' EVA/EXP H20 LOST',T20,F6.2,T56,F8.2,1X,F8.2,1X,F7,2) 
WRITE (NWRITE ,100) MAKEUP , AUXEQ (11,0,1), AUXEQ (11,5,1), AUXEQ (11,7,1) 
160 FORMAT (IX, 'MAKEUP H20 • , T2 0 , F6 . 2 , T37 , F8 . 2 , T« 5 , F8 . 2 , IX, F7 . 2 ) 

WRITE (NWRITE ,170) EXCESS , AUXEQ (12,3,1), AUXEQ (12,5,1), AUXEQ (12,7,1) 
170 FORMAT (IX, 'EXCESS H20 • , T2 0 , F6 . 2 , T56 , F8 . 2 , IX , F8 . 2 , IX, F7 . 2 ) 

WRITE (NWRITE, 200) CLOTHW , AUXEQ ( 13 , 1 , 1) , AUXEQ ( 13 , 4 , 1) , 

* AUXEQ (13,6,1) , AUXEQ (13,7 ,1) 

200 FORMAT ( IX, 'RESUPPLY CLOTHES' ,T2 0 , Ffr . 2 , IX , F8 . 2 ,T5 6 , F8 . 2 , IX, F8 . 2 , 

* IX , F7 . 2 ) 

WRITE (NWRITE, 210) DISHWGHT, AUXEQ ( 14 , 1, 1) , AUXEQ ( 1 4 , 4 , 1) , 

* AUXEQ ( 14 , 6 , 1 ) , AUXEQ ( 14 , 7 , 1) 

210 FORMAT (IX, 'RESUPPLY DISHES' , T2 0 , F6 . 2 , IX, F8 . 2 , T56 , F8 . 2 , IX, F8 . 2 , 

* 1X,F7.2) 

WRITE C3RITE ,220) TRASHW, AUXEQ (15,1,1), AUXEQ (15,4,1), 

* AUXEQ ( 3 5 , 6 , 1 ) , AUXEQ ( 15 , 7 , 1} 

220 FORMAT (IX, 'TRASH' , T2 0 , F6 . 2 , IX , F8 . 2 , T5 6 , F8 . 2 , IX, ?8 . 2 , IX , F7 . 2 ) 

WRITE (NWRITE, 180} AUXEQ ( 17 , 1 , 1 ) , AUXEQ (17,0,1) , AUXEQ ( 17 , 2 , 1) , 

* AUXEQ (17, 3,1) , AUXEQ (17 ,5,1} , AUXEQ ( 17 , 7 , 1) 

180 FO RMAT(T 3, « TOTALS FOR WRS • ,T27 , F8 . 2 , T37 , F0 . 2 ,T47 , F8 . 2 ,T5« , F8 . 2 , 

* IX, F 8. 2, IX, F7 . 1) 

WRITE (NWRITE, 230) AUXEQ ( 18 , 1 , 1) , AUXEQ ( IB , Q , 1 ) , AUXEQ ( 18 , 2 , 1) , 

* AUXEQ (18,4,1) , AUXEQ (18,6,1) , AUXEQ { 18 , 7 , 1 ) 

230 FORMAT (T3, ’GRAND TOTALS' , T27 , F8 . 2 , T37 , F8 . 2 , T47 , F8 . 2 , T5 6 , Ffl . 2 , IX, 

* F8.2,1X,F7.1) 

IF (NWRITE. EQ. 6) READ (NREAD, 1 ) IDUM 
1 FORMAT (12) 


WRITE (NWRITE, 510) NR 

510 FORMAT (5 (/) ,T4 f 'AUXILIARY EQUIPMENT VOLUMES (FT3) i POWER (WATTS , 

* » - ',13,' DAY RESUPPLY INTERVAL') 

WRITE (NWRITE, 520) 

520 FORMAT (T22, 'AUXILIARY EQUIP TANKAGE MATERIAL STORAGE', 

* T71, 'TOTALS' ) 

WRITE (NWRITE, 530) 


530 FORMAT (T3, ' ITEM (FT3 , WATTS ) ' ,T22, ' VOLUME ' , T32 , 'POWER' ,T40 

* , » VOLUME' ,T4 9, ' VOLUME ', T5 9 , 1 POWER ',T67, ' VOLUME ', T7 6 , 'POWER') 


DO 565 1=1, NUMBER 
ISYS=ITYPE(I,1) 

IF (ISYS.GE.21.AND.ISYS.LE.30) THEN 

WRITE (NWRITE, 5 40) FNAME(XBYS) , ( AUXEQ ( 1 , 1 ,K> ,K=2,3) , 
* (AUXEQ (1,7 ,K) ,K=2 , $) 

540 FORMAT (IX, Aik, T21,F7 , 2 , 2 X , F7 . 1,T66 , F7 . 2 , IX, F7 , 1) 

ENDIF 

IF (ISYS.GE. 1.AND.ISYS.LE.10) THEN 

WRITE (NWRITE, 540) FNAME ( ISYS ) , ( AUXEQ ( 2 , 1 , K) , K=2 , 3 ) , 


* ( AUXEQ { 2 , 7 , K ) , K=2 , 3 ) 

ENDIP 

IP (ISYS.GE.11.AND.ISYO.LF.20) THEN 

WRITE { NWRITE ,550) FNAME(ISYS) ; AMAT1 , ( AUXEQ ( 3 , 1 , K) , K=2,3) , 

* ( AUXEQ ( 3 , 5 , K ) , K— 2 , 3 ) 

.'6 0 FORMAT ( IX, A12 , « ( • ,A3, » ) • ,T2 1 ,F7 . 2 , 2X , F7 . 1 ,T48 ,F7 . 2 , 2X , F 7 . 1 ) 
WRITE (NWRITE, 5GX) AMAT2 , ( AUXEQ { 3 , 6 , K) ,K=2,3) , 

* (AUXEQ(3,7,K) ,K=2,3) 

5 6 J, FORMAT (Til,' ( • , A3 , • ) ♦ ,T48 , F7 . 2 , 2X,F7 . 1 , 2X , F7 . 2 , IX , F7 . 1) 
ENDIF 

565 CONTINUE 

WRITE (NWRITE, 57 0) ( AUXEQ ( 16 , 1 , K) , K=2 , 3 ) , (AUXEQ ( 16 , 6 , K) ,K=2,3) 

* AUXEQ (16,7,2 ) r AUXEQ (16,7,3) 

570 FORMAT (T3, 'TOTALS FOR ARS 1 , T2 1 , F7 . 2 , 2X , F7 . 1 , T48 , F7 . 2 , 2X, F7 . 1 , 

* 2X,F7.2,1X,F7.1) 

WRITE ( NWRITE , 58 C ) 

560 FORMAT () 

1CNTW=3 

DO 395 1=1, NUMBER 
ISYS=ITYPE(I,1) 

IP (ISYS . LE r 30 ) GOTO 595 

ICNTW=ICNTW+1 

IRECYC=IFIX ( AUXILW (1,0,0) ) 

WRITE (NWRITE , 5 S' 1 ) FNAME(ISYS) ,IRECYC, 

* (AUXEQ (ICNTW, 1, K) ,K=2,3) , AUXEQ ( ICNTW, 2 , 2 ) , 

* (AUXEQ (ICNTW, 5, K) ,K=2,3) , ; AUXEQ (ICNTW, 7 , K) ,K=2,3) 

590 FORMAT ( IX, A12, • ( 5 ,12, • ) • ,T2 1 , F7 . 2 , 2X ,F7 . 1 ,2X , F7 . 2 , 2X, F7 . 2 , 2X, 

* F7 . 1,2X,F7 . 2 , 1X,F7 . 1) 

595 CONTINUE 

IF (STOREW.NE.O . ) THEN 
ICNTW=ICNTW+1 

WRITE (NWRITE, 640) ( AUXEQ ( ICNTW, 5 , K) , K=2 , 3 ) , 

* (AUXEQ (ICNTW, 7, K) ,K=2,3) 

640 FORMAT ( IX, 1 NON-RECOVRED H20 • , T48 , F7 . 2 , 2X, F7 . 1 , 2X, F7 . 2 , IX, 

* F7 . 1) 

ENDIF 

WRITE (NWRITE, 650) ( AUXEQ ( 10 , 5 , K) , K=2 , 3 ) , 

* ( AUXEQ ( 10 , 7 , K; ,K=2,3) 

650 FORMAT ( IX, • EVA/EXP H20 LOST* , T4 8 , F7 . 2 , 2X, F7 . 1 , 2 X, F7 . 2 , IX, 

* F7.1) 

WRITE (NWRITE, 660) ( AUXEQ ( 11 , 5 , K) , K=2 , 3 ) , 

* (AUXEQ (11, 7, K) ,K=2,3) 

660 FORMAT (IX, 'MAKE Ur H20 » , T48 , F7 . 2 , 2X, F7 . 1 , 2X, F7 , 2 , IX, 

« F7.1) 

WRITE (NWRITE, 670) ( AUXEQ ( 12 , 5 , K) , K=2 , 3 ) , 

* (AUXEQ ( 12 , 7 , K) , K— 2 ,3) 

670 FORMAT (IX, 'EXCESS H20 • , T48 , F7 . 2 , 2X, F7 . 1 , 2X, F7 . 2 , IX, 

* F7.1) 

WRITE (NWRITE, 700) ( AUXEQ ( 13 , 1 , K) ,K=2,3) , ( AUXEQ ( 13 , 6 , K) ,K=2,3) 

* (AUXEQ (13,7/K) , K=2 , 3 ) 

700 FORMAT (IX, 'RESUPPLY CLOTHES • ,T2 1 , F7 . 2 , 2X, F7 . 1 , T4 8 , F7 . 2 , 2X, 

* F7 . 1 , 2 X , F7 . 2 , IX , F7 . 1 ) 

WRITE ( NWRITE ,710) ( AUXEQ ( 14 , 1 , K) , K=2 , 3 ) , (AUXEQ ( 14 , 6 , K) ,K=2,3) 

* (AUXEQ (14, 7, K) ,K=2,3) 

710 FORMAT (IX, 'RESUPPLY DISHES • , T2 1 , F7 . 2 , 2X,F7 . 1 , T48 , F7 . 2 , 2X, 

* Is 7 . 1 , 2X, F7 . 2 - IX, F7 ■ 1 ) 

WRITE (NWRITE, 720) (AUXEQ ( 15 , 1, K) ,K=2,3) , ( AUXEQ ( 1 5 , 6 , K) , K=2 , 3 ) 

* (AUXEQ (15, 7, K) , K=2 , 3 ) 

720 FORMAT (IX, • TRASH ' , T2 1 , F7 . 2 , 2X, F7 . 1 , T4 8 , F7 . 2 , 2X, 

* F7 . 1 , 2X, F7 . 2 , IX, F7 . 1) 


WRITE (NWRITE , 680 ) (AUXEQ ( 17 , 1, K) , K=2 , 3 ) , AUXEQ (17,2,2) , 

* (AUXEQ (17 , 5 , K) ,K=2 ,3) , < AUXEQ ( 17 , 7 , X) , K=2 , 3 ) 

6 80 FORMAT (T3, 'TOTALS FOR MR3 * , T2 1 , F7 . 2 , 2X, F7 . 1 , 2X, F7 . 2 , 2X, 

* F7.2,2X,F7.1,2X,F7.2,1X,F7.1) 

WRITS {NWRITE ,730) { AUXEQ { 18 , 1 , K) , K=2 , 3 ) , AUXEQ (13,2,2) , 

* (AUXEQ (18 , 6 , K) , K=2 , 3 ) , ( AUXEQ ( 18 , 7 , K) ,K=2,3) 

730 FORMAT (T3 , 'GRAND TOTALS' , T2 1 , F7 . 2 , 2X, F7 . 1 , 2X , F7 . 2 , 2X , F7 . 2 , 2X, 

* F7 . 1 , 2X, F7 . 2 , IX, F7 . 1 ) 

IF (NWRITE. EQ. 6) READ ( NREAD , 1 ) IDUM 

RETURN 

END 

SUBROUTINE COMPARE 
REAL N , l' 

PARAMETER ( NDSGN=5 6 , NS8DAT=3 0 , NSYS=5 0 , NBUBSYS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER ( ICOMPAR=17 , NCOMPAR=2 0 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , S8DATA (NSSDAT, N8Y8 > , 

* SUBSYS (OlNSUBSYS, NNUM) , N, R, RE , M, ITYPE (NNUM, NITYP) , IWATER ( NWNUM ) , 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WRSAUX (NWAUX, 0 : 3 ) , 

* ARSAUXQ ( 30 , NAAUX) , WRSAUXQ (NWNUM, 0 iNWAUX) , 

* AUXI LA (NNUM, NAAUX ,0:3) , AUXILW (NNUM, 0 : NWAUX, 0 t 3 ) , 

* GROUP, IUNIT,JFLOW (NAAUX, NCOMPAR) , KFLOW (NCOMPAR, NCOMPAR) , 

* BWATER (NAAUX, NAAUX) , PS WATER (NAAUX) , LFLOW( NCOMPAR, NCOMPAR) 

COMMON /IWRT/ IWRITE 

COMMON /RATESYB/ ITRACK, COKPAR ( ICOMPAR, NCOMPAR) , 

* POINT (Oi ICOMPAR) , RATE ( 0 : ICOMPAR , NCOMPAR) , 

* C0MPAR1( ICOMPAR, 3) 

COMMON / CHAR2 / COMPARD ( NCOMPAR ) , COMPARL ( NCOMPAR ) 

CHARACTER* 6 ADUMP 

CHARACTER* 6 0 COMPARD, COMPARD! (NCOMPAR) 

CHARACTER* 12 COMPARL, COMPARL 1 (NCOMPAR) 

DO 5 1=1, ICOMPAR 
DO 6 J=l, 3 
COMPARl ( I , J ) =0 . 

6 CONTINUE 
5 CONTINUE 
PRINT 3 
3 FORMAT ( 5 </)) 

IF (ITRACK.LT. 2) THEN 

PriNT*,'TOG FEW SYSTEMS HAVE BEEN ANALIZED' 

GOTO 99 
ENDIF 
ICNT=0 

PRINT*,' 0. END SYSTEM SELECTION' 

DO 10 1=1, ITRACK 
PRINT 15, I, COMPARL (I) 

15 FORMAT (IX, 12, » . *,A12) 

10 CONTINUE 

PRINT*, 'ENTER UP TO 3 SYSTEMS TO COMPARE, ONE PER LINE* 

20 READ ( 5 , * , ERR=2 0 ) INUM 

IF (INUM. LT. 0 . OR. 1NUM.GT. ITRACK) GOTO 20 
IF ( INUM . EQ . 0 . AND . ICNT . LT . 2 ) THEN 

PRINT* , * TOO FEW SYSTEMS HAVE BEEN CHOSEN' 

GOTO 20 
ENDIF 

IF (INUM.EQ.O) GOTO 30 

ICNT=ICNT+1 

DO 25 1=1, ICOMPAR 

COMFARLl ( ICNT) =COMPARL ( INUM) 


COMPARD 1 ( ICNT) =COMPARD < INUM) 

2 5 COMPAR1 ( I , ICNT ) =COMPAR ( I , INUM ) 

IP (ICNT. NS. 3) GOTO 20 
30 NWRITE=6 

CALL POINTASQ ( NWRITE , ICNT , COMPARL1 , COMPARD 1 ) 

IP (IWP.ITE.NE.2) THEN 
NWRITE=1 

CALL POINTASQ (NWRITE , ICNT , COMPARL1 , COMPARD1 ) 

END IP 
99 RETURN 
END 

SUBROUTINE POINTASQ (NWRITE , ICWT , COMPARL1 , COMPARD1) 

REAL N,M 

PARAMETER { NDSGN=5 6 , NSSDAT=3 0 , NS YS=5 0 , NS UB8YS= 3 5 , NNUM=9 , NWNUM= 6 ) 
PARAMETE R ( N AAUX= 1 0 , NWAUX= 1 6 , NIT YP= 4 > 

PARAMETER (ICOMP£R=17 ,NCOMPAR=2Q) 

COMMON /CHAR/ ADUMS 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NS0DAT, N8Y8) , 

* BUBSYS(0:NSUBSY8,NNUM) , N,R*RE,M, ITYPE (NNUM,NITYP) , IWATER(NWNUM) , 

* TOTALS (NSUBSYS , 3 ) , NUMBER , ARS AUX ( NAAUX , 3 ) , WRSAUX (NWAUX, 0 l 3 ) , 

* ARS AUXQPG, NAAUX) , WRS AUXQ ( NWNUH , 0 : NWAUX ) , 

* AUXI LA (NNUM, NAAUX, 0:3) , AUXILW (NNUM, 0 : NWAUX, 0 : 3 ) , 

* GROUP, IUNIT, JPLOW (NAAUX , NCOMPAR) , KPLOW (NCOMPAR , NCOMPAR) , 

* B WATER (NAAUX, NAAUX) , OSWATER ( NAAUX) , LPLOW (NCOMPAR, NCOMPAR) 

COMMON /RATE8YS/ ITRACK, COMPAA ( ICCMPAR, NCOMPAR) , 

* POINT (0: ICOMPAR) , RATE ( 0 J ICOMPAR, NCOMPAR) , COMPAR1 ( ICOMPAR, 2 ) 
COMMON /CHAR2/ COMPARD (NCOMPAR) , COMPARE (NCOMPAR ) 

CHARACTER* 6 A DUMP 

CHARACTER* S 0 COMPARD , COMP ARD1 ( NCOMPAR ) 

CHARACTER* 12 COMPARE , COMPARL1 (NCOMPAR) ,COMPARL2 (NCOMPAR) 
CHARACTER* 2 $ NAMES (17) 

DIMENSION BEST (ICOMPAR) 

DATA NAMES/ ‘INITIAL LAUNCH WEIGHT (LB) RESUPPLY WEIGHT (LB) ' , 

* ' EQUIVALENT WEIGHT ( LB )*,» LIFETIME WEIGHT (LB) ' , 

; POWER REQUIRED (WATTS) • , 'HEAT REJECTION (WATTS) * , 

■ l OH ORBIT VOLUME (FT3) », ‘RESUPPLY VOLUME (FT3 )' , 

' 'LIFETIME VOLUME (FT3) *, ‘RELIABILITY* , ‘TECHNOLOGY READINESS*, 

•’ * PACING TECHNOLOGY PROBLEMS' , * SAFETY* , * MAINTAINABILITY* , 

* * COMMONALITY » , * OVERALL RATING * , * MAINTENANCE TIME ( HR) * / 

DO 4 1=1 , ICNT 

DO 6 K=12 ,1,-1 

6 IF (COMPARL1 (I) (K: K) .NE. • ') GOTO 7 

7 K2=K 

DO B Kl=12,13-K,-1 

COMPARL2 (I) ( K 1 : K 1 ) =COMPARLl ( I ) ( K2 s K2 ) 

8 K2=K2-1 

DO 9 Kl=l,12-K 

9 COMPARL2 (I) (K3.:K1) = * * 

4 CONTINUE 

2 WRITE (NWRITE, 5) 

5 FORMAT (*»(/) ) 

WRITE (NWRITE, 10) (CCHPARL2 (I) ,1=1, ICNT) 

10 FORMS, T (T8 , ' ITEM* , T34 , ' POINTS * , <ICNT> (2X r A12 ) ) 

DO 50 1=1, ICOMPAR 

WRITE (NWRITE, 20) I,NAME8(I) , POINT (I) , { COMPAR1 { I , J ) ,J=1,ICNT) 

20 FORMAT (IX, 12, ‘ . ' , A2 6 , 2 X , F6 . 2 , <ICNT> ( 2X, F12 . 3 ) ) 

50 CONTINUE 

WRITE (NWRITE, 30) POINT (0) 

30 FORMAT (T6, * TOTALS ' ,T34 , F3 . 2 ) 

IF (NWRITE. EQ. 6) CALL POINTIN(*2) 


o o 


IF {POINT (0) .EQ. 100. ) GOTO 100 

PRINT* , • ***KARNlNG*»*TOTAL POINTS ASSIGNED DOES NOT EQUAL 100.* 
PRINT*,* DO YOU WANT TO I * 

PRINT*,' 1. RATIO POINTS ASSIGNED TO CURRENT ITEMS TO GIVE 

* 'TOTAL = 100. • 

PRINT*,' 2. RETURN TO INDIVIDUAL SPECIFICATION OF POINTS' 

55 READ ( 5 , * , ERR=35 ) INUM 

IF (INUM.LT.1.0R.INUM.GT.2) GOTO 55 
IF (INUM.EQ.2) GOTO 2 
IF ( POINT 10 } . EQ . 0 . ) THEN 
DO 58 1=1, ICOMPAR 
POINT (I) =1. 

58 POINT ' 0 ) = POINT { Q ) +POINT (I ) 

ENDIF 

DO 60 1—1,1 COMPAR- 1 
60 POINT ( I ) = POINT ( I ) *100 ./POINT (0) 

POINT (0)=0 . 

DO 05 1=1 , ICOMPAR- 1 
65 POINT { 0 ) =POINT { 0 ) +POINT (I) 

POINT ( ICOMPAR) =10 0 . - POINT ( 0 ) 

POINT ( 0 ) = POINT (0 ) + POINT ( ICOMPAR) 

GOTO 2 

100 DO 110 1=1, ICOMPAR 

IF ( I . LT . 10 . OR. I . GT „ 16 ) BEST (I ) =1 . E30 
110 IF (I.GE. 10. AND. I. LE . 16) BEST(I)=0. 

DO 120 1=1, ICOMPAR 
DO 115 J=1,ICNT 

IF (I.LT. 10 .OR. I.GT. 16) BEST ( I) =AMIN1 ( BEST (I ) , COMPAR1 ( I , J) ) 

IF {I.GE. 10. AND. I. LE. 16) BEST ( I ) =AMAX1 (BEST ( I ) , COMPAR1 ( I , J) ) 

115 CONTINUE 
120 CONTINUE 

DO 123 J=1 , ICNT 
123 RATE (0 , J ) =0 . 

DO 130 1=1, ICOMPAR 
DO 125 J=l, ICNT 

C IF ( POINT (I) . EQ . 0 . ) THEN 

O RATE (I , J ) =0 . 

GOTO 125 
ENDIF 

IF (I.LT. 10. OR. I.GT. 16) RATE ( I , J) = ( 1 . 0 - ALOG (COMPAR1 (I , J) / 

* BEST ( I) ) /ALOG (2.0) ) * POINT (I) 

IF (I.GE. 10. AND . I . LE .16) RATE ( I , J ) = ( 1 . -ALOG ( BEST { I ) / 

* COMPAR1 { I , J) ) /ALOG ( 2 . ) ) * POINT ( I ) 

IF ( RATE ( I , J ) . LT . 0 . ) RATK(I,J)=0. 

RATE (0, J)=RATE (0 , J)+RATE (I,J) 

125 CONTINUE 
130 CONTINUE 

WRITE (NWRITE , 5 ) 

WRITE (NWRITE, 10) \COMPARL2 (I) ,1=1, ICNT) 

DO 150 1=1, ICOMPAR 

WRITE (NWRITE, 145) I, NAMES (I) , POINT (I) , (RATE(I,J) ,J=1,IC7!T) 

145 FORMAT (IX, 12, • . • , A2 6 , 2X , F6 . 2 ,T39 , <ICNT> (0X, F6 . 2 ) ) 

150 COOTINUE 

WRITE (NWRITE, 160) POINT (0) , (RATE(0,J) ,J=1,ICNT) 
i CO FORMAT (T6, • TOTAL8 • , T34 , F6 . 2 ,T39 , <ICNT> ( 8X, F6 . 2 ) ) 

162 IF (NWRITE. EQ. 6) READ ( 5 , 1 ,ERR=162 ) IDUM 
1 FORMAT (12) 

IF (NWRITE. NE. 6) THEN 
DC 170 1=1, ICNT 

WRITE (NWRITE, 175) COMPARLl(I) ,COMPARDl(I) 


* , A60 ) 


17 5 F0PMATCX,A12, • : 

170 CONTINUE 
ENDIF 
RETURN 
END 

SUBROUTINE POINTIW(*) 

REAL N/M 

PARAMETER {NDSGN-5 6 , NSSDAT=3 0 , NSYC=5 0 , NSUBS YS=3 6 , NNUM-9 , NWNUMsfi ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER flCOMPAR-17 , NCOMPAR=20) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , BSDATA (NBBDAT , N8Y8 ) , 

* SUBSYS ( 0 : NSHBBYS , NNUM) , N, R, RE , M, ITYPE < NNUM, NITYP) , I WATER ( NWNUM ) 

* TOT? L8 (NSUBEY8 , 3 ) , NUMBER, ARSAUX ( NAATTX, 3 ) , WRSAUX ( 1TW AUX , 0 : 3 ) , 

* ARSAUXQ (30, NAAUX) ,WRSAUXQ (NWNUM, 0 : NWAUX) , 

* AUXILA (NNUM, NAAUX, 0 t 3) , J.UXILW (NNUM, 0 ! NWAUX, C : 3 ) , 

* GROUP, IUNIT, JFLGW ( NAAUX, NCOMPAR) , KFLOW ( NCOMPAR , NCOMPAR ) , 

* BWATER ( NLAUX , NAAUX ) , PS WATER { NAAUX) , LFLOW ( NCOMPAR, NCOMPAR) 

COMMON /RATESY8/ ITRACK, COMPAR ( ICOMPAR, NCOMPAR) , 

* POINT (0: ICOMPAR) , RATE ( 0 S ICOMPAR, NCOMPAR) , 

* COMPARM ICOMPAR, 3) 

COMMON /CHAR2/ COMPARD (NCOMPAR) , COMP ARL (NCOMPAR) 

CHARACTER* « ADUMP 
CHARACTER* 60 COMPARD 
CHARACTER* 12 COMPARL 
LOGICAL FLAG 
FLAG=. FALSE. 

5 PRINT*, ‘ENTER ID# , SPACE , NUMBER OF POINTS ( 0-100 ) TO BE AS8IGNED ' 

* ‘TO EACH ITEM* 

PRINT*, ‘ENTER 0, SPACE, 0 <RET> TO END» , 

* '(ENTER -1, SPACE, VALUE TO SET ALL ITEMS=VALUE) ' 

10 READ (5 , * , ERRs5 ) NUM, VALUE 

IF (NUM.EQ.0) GOTO 90 
IF (NUM. GT. ICOMPAR) GOTO 10 
IF (VALUE. LT. 0 . ) GOTO 10 
IF (NUM.LT.O) THEN 
DO 15 1=1. ICOMPAR 
15 POINT (I)sVALUE 
ELSE 

POINT (NUM) sVALUF 
END IF 

FLAGS. TRUE. 

GOTO 10 

90 IF (FLAG) THEN 
POINT (0)=0. 

DO 20 1=1, ICOMPAR 
20 POINT ( 0 ) =POINT ( 0 ) +POINT ( I ) 

RETURN 1 
ENDIF 
RETURN 
END 

SUBROUTINE INITL 
REAL N,M 

PARAMETER ( NDSGN=5 6 , NSSDAT=3 0 , NSYSj=S0 , NSUBS YS=3 5 , NNUM=9 , NWNUM=6 ) 
PARAMETER (NAAUX=10 , NWAUX=16 , NITYP=4 ) 

PARAMETER ( ICOMPAR=17 , NCOMPAR=20 ) 

COMMON /CHAR/ ADUMP 

COMMON /GENRL/ DESIGN (NDSGN) , SSDATA (NSSDAT, NSYS ) , 

* SUBSYS { 0 : NSUBSYS , NNUM) , N, R, RE ,M, ITYPF (NNUM, NITYP) , IWATER { NWNUM) 

* TOTALS (NSUBSYS, 3) , NUMBER, ARSAUX (NAAUX, 3 ) , WKSAUX (NWAUX, 0 : 3 ) , 



* ARB AUXQf 30, NAAUX) , tfRSAUXQ<NWNUM,Q:NWAUX} , 

* AUXILA (NNUM, NAAUX, 0 l 3 ) , AUXILW (HNU1{, 0 v NWAUX, 0 I 3 ) , 

* GROUP, I UNIT , JFLOW (NAAUX , NCOMPAR) , XFLGW (NCOMPAR, NCOMPAR) , 

* SWATER ( NAAUX , NAAUX) , PSWATER (NAAUX > , LFLOW (NCOMPAR, NCOMPAR) 
CHARACTER* 6 ADUMP 

DO :'0 J=0,NSUBOY>i 
DO 10 1=1, NNUM 
SUB3YS (J, I):rO . 

10 CONTINUE 
20 CONTINUE 

DO 40 J=1 ,NNUH 
DO 30 I=1,NITY? 

ITYPE ( J , I) =0 
30 CONTINUE 
40 CONTINUE 

DO 50 1=1, NWNUM 
50 IWATER(I) =0 

DO 60 1=1 , NAAUX 
DO 60 J=l, NCOMPAR 
JFLOW ( I , J ) =0 
60 CONTINUE 

DO 70 1=1, NCOMPAR 
DO 70 J=l, NCOMPAR 
KFLOW { I , J ) =0 
LFLOW (I, J) =0 
70 CONTINUE 

DO 80 1=1, NAAUX 
DO 80 J=l, NAAUX 
8WATER ( I f J ) =0 . 

80 CONTINUE 

DO 90 1=1, NAAUX 
PSWATER ( I ) =0 . 

90 CONTINUE 
RETURN 
END 



